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WHAT 

NEXT? 


■ 

USING INPUTS AND PROMPTS 

■ 

QUICKER METHODS WITH 

INKEY$ OR GETS 

■ 

SCREEN DRAWING PROGRAM 

■ 

PASSWORD PROGRAM 


Before you can get a computer to 
respond to your wishes, you’ll have 
to tell it what those wishes are. The 
way to do this is fundamental to 
many types of program 


fast. But in other applications, the ability to 
change what you have keyed in, before com- 
mitting it to the computer’s memory, is more 
important. 


SIMPLE INPUTS 


names and ages is built up using simple INPUT 
commands. (This program uses two arrays to 
store information, so look at pages 152 to 155 
if you’re not familiar with how these work.) 

IE [EH 



One of the first programs that everyone 
writes, which illustrates the use of INPUT, is 
along the lines of: 


iKEKEI 


10 PRINT “WHAT IS YOUR NAME?” 

20 INPUT N$ 

30 PRINT “HELL0D”;N$ 

When the computer comes across the INPUT 
statement it waits for you to key something in. 
In most cases, everyth ing which is typed in, 
up to the next | RETURN | or | ENTER 1 , is placed in 
the variable — N$ in this case. 

In this example, the variable is a string. But 
numeric variables can be used as well. The 
following program shows how a list of five 


5 DIM NAME$(5), AGE(5) 
10 FOR N = 1 TO 5 
20 PRINT “NAME:” 

30 INPUT NAME$(N) 

40 PRINT “AGE:” 

50 INPUT AGE(N) 

EXT N 


With very few exceptions, computers do not 
just tick along by themselves, giving out 
information. Nearly all programs, from 
games to business and scientific applications, 
require some sort of input from the user. But 
there are different types of information which 
can be given to the computer, and there are a 
number of ways in which this can be done in 
different’types of program. 

The information may be as simple as 
pressing a cursor key to direct a missile base. 
Or it may be keying in numbers or text — say 
for a quiz, database, accounts program or 
scientific calculation. In the case of a game the 
main necessity is that the computer reacts 


5 DIM NAME$(5), AGE(5) 

10 FOR N = 1 TO 5 
20 PRINT “NAME:” 

30 INPUT NAME$(N) 

40 PRINT “AGE:” 

50 INPUT AGE(N) 

60 NEXT 

70 FOR N = 1 TO 5 

80 PRINT NAME$(N);“DISD”;AGE(N); 

“□YEARS OLD” 

90 NEXT 











accounting programs, and many others, re- 
quire dates to be entered. In many cases this 
information is used by the program, either in 
search routines when you want to find a 
specific entry, or to sort the entries into 
chronological order. If you do this, you must 
ensure that you always enter dates in a stan- 
dard form. 

A common method is to use six digit dates, 
sometimes with obliques or fullstops to sepa- 
rate the day, month and year. So a typical 
INPUT routine may look something like this: 

SS^^QSSO 

100 PRINT “ENTER DATE (IN FORMAT 
DD/MM/YY)” 

110 INPUT D$ 

This reminds you, not only that a date is 
needed, but also in what form it must be 
entered. If you wanted to enter the 3rd 
September 1945, you would actually type: 
03/09/45. You can choose any format you like 


as long as you tell the user what you want. 

The use of the INPUT command in the 
programs shown so far is pretty simple. But it 
can be made even simpler, because with many 
computers you can incorporate the prompt in 
the INPUT command itself. (On the Commo- 
dores the length of the prompt is limited to 20 
characters.) Going back to the name and age 
program, you can delete Lines 20 and 40, and 
rewrite 30 and 50 as: 


30 INPUT “NAMED”NAME$(N) 
50 INPUT “AGED”AGE(N) 

SZ ! KH 

30 INPUT “NAMED”; NAME$(N) 
50 INPUT “AGED”; AGE(N) 

HfiQ 

30 INPUT “NAME”; NAME$(N) 

50 INPUT “AGE”; AGE(N) 


30 INPUT “NameD”; n$(n) 
50 INPUT “Aged”; a(n) 


20 PRINT “NAMED’ 


70 FOR N = 1 TO 5 

80 PRINT NAME$(N);“DIS”;AGE(N); 

“YEARS OLD” 

90 NEXT N 


5 DIM n$ (5,10): DIM a (5) 

10 FOR n = 1 TO 5 
20 PRINT “Name:D” 

30 INPUT n$ (n) 

40 PRINT “Age: □” 

50 INPUT a (n) 

55 CLS:NEXT n 

60 FOR n = 1 TO 5 

70 PRINT n$ (n); “DisD”; a(n); 

“□years old” 

80 NEXT n 

On the ZX81, type entirely in capitals. Omit 
Lines 5 and 55, and add: 

5 DIM N$ (5,10) 

7 DIM A (5) 

55 CLS 
57 NEXT N 


It is important that the right type of inform- 
ation is given. If you tried to type in a name 
when asked for an age, the program stops and 
PRINTs an error message (except on the 
Acorn). Running the program again may mean 
that you lose everything already entered, and 
have to start from scratch. That is not too 
much of a problem with only five entries, but 
in a large program it can be annoying. 


The program above may seem pretty simple, 
but even that little program contains one 
important feature. That is the prompt con- 
tained in the first two PRINT statements. A 
prompt is a message telling you that the 
computer wants you to enter something. 

If you delete Lines 20 and 40, the 
program still RUNs. With most computers 
you get some sort of prompt on the screen 
anyway. For example, many computers 
display a question mark. 

If you are familiar with the com- 
puter, the INPUT prompt is some- 
times enough to remind you that some- 
thing needs to be entered. But it is not enough 
to tell you what type of information. Imagine 
you are a stranger to the program, perhaps 
with no experience of the computer being used 
and no working knowledge of the program. A 
question mark is just baffling. 

Good use of prompts is of benefit even with 
your own programs, as it is very easy to forget 
exactly how the information should be en- 
tered. Entering dates is a good example. Most 


USING PROMPTS 












30 INPUT N$ (N) 

40 PRINT “AGED” 

50 INPUT A(N) 

Note the spaces inside the quote marks. With 
many computers, your keyboard entry is 
PRINTed straight after the prompt, so a space 
helps make things clearer. However, the 
Dragon and Tandy PRINT the spaces for you. 

This is not the only way the routine can be 
condensed. Normally, more than one item can 
be entered, using just a single INPUT com- 
mand — the only computer on which this is not 
possible is the ZX81. The variables into which 
the information is fed are separated by com- 
mas. So you could replace Lines 30 and 50 
(remember to delete Line 50) above with this 
single line: 

B 

30 INPUT “ENTER NAME AND AGED” 
NAME$(N),AGE(N) 

KB KB 

30 INPUT “ENTER NAME AND AGED”; 
NAME$(N),AGE(N) 


On the Dragon, Tandy, Acorn and Commo- 
dores you can either use the Spectrum method 
or else type in the name and age sep arated by a 
comma and only then press [ENTER]. 

When you use a single prompt, it is 
important that it tells you everything you 
need to know about what entries are required. 

Alternatively, on the Acorn and Spectrum, 
you can always split the prompt again. As 
long as each prompt is kept in quotation 
marks, the computer just PRINTs them, and 
does not treat them as variables. So, Line 30 
can be rewritten again: 


30 INPUT “ENTER NAME AND AGE”; 
NAME$(N),AGE(N) 


30 INPUT “Enter name and aged”; 
n$(n),a(n) 

How you actually enter the two pieces of 
information is differ ent on e ach computer. On 
the Spectrum press I ENTER 1 after each INPUT. 


30 INPUT “NAMED” NAME$(N), “AGED” 
AGE(N) 


30 INPUT “Name”; n$ (n); “age”; 
a (n) 

However, note that it is not possible to do this 
on the Commodores, Dragon, Tandy or ZX81 . 

To make the display a little tidier, INPUT 
prompts can usually be positioned using the 
normal TAB commands (see pages 1 17 to 123). 


INPUTTING A WHOLE LINE 


The main problem you are likely to come 
across with INPUT is when you are entering 
strings containing commas or with spaces at 
the beginning. If you want a single variable to 
contain an address, for example, you need to 
include commas. And spaces at the beginning 
might be handy for neat screen presentation. 

The problem is that most computers ig- 
nore the leading spaces, although they have 
no trouble with those between words. And 
frequently, they also ignore anything occur- 
ring after a comma, so you could find large 
portions of your information going missing. 


Fortunately, some computers have a com- 
mand which solves this problem, and the 
Spectrum has a way of avoiding it. 

The most common solution is to include 
the entry in quotation marks. The Spectrum, 
for instance, automatically PRINTs quotation 
marks when a string variable is used in an 
INPUT command. On the other computers 
they have to be typed in by the user, so any 
prompt should point out when they are 
necessary. 

Another solution, available on the Acorn, 
Dragon and Tandy computers, is to use the 
INPUT LINE or LINE INPUT command. This is 
used in exactly the same way as INPUT: 

□ 

10 INPUT LINE “Please enter your 
address D”, A$ 


10 LINE INPUT “PLEASE ENTER YOUR 
ADDRESSD”; A$ 

This has the ad vantage o f putting everything 
up to the next [RETURN | , including commas 
and leading spaces, into the variable. It is also 
more foolproof as you don’t have to rely on 
the user to remember to type in the quotes. 


SPEED UP YOUR INPUTS 


The main advantage of the INPUT or INPUT 
LINE command is that you can alter what you 
are entering right up to the moment of 
pressing [RETURNI or I ENTER | . So if you make a 
typing error, realise you are giving the wrong 
information, or simply change your mind, 
you can delete and try again. 

The disadvantage is that this system is 
relatively slow and if you are writing 
programs for people who are not familiar with 
com puters, th ey may n ot realise, or forget, 
that I ENTER | or IRETURN | must be pressed. 

In programs using a lot of menus, or yes/no 
answers, having to hit that extra key makes 
the program very slow. It can even double the 
number of keystrokes. So to avoid this there is 










a way of getting the computer to READ which 
keys you are pressing as you press them. 

The command used is INKEY$ on the 
Sinclairs, Tandy and Dragon, GETS or IN KEYS 
on the Acorns and GET on the Commodores. 

When the computer encounters one of 
these keywords, it looks to see if a key is 
pressed, and then passes the character relating 
to that key to the variable. This is commonly 
used for yes/no replies to questions like ‘Do 
you want another game* (see page 35). It is 
written like this: 


100 LET AS = GETS 

B* ' 80 


100 GET AS : IF A$ = “”THEN GOTO 100 



100 LET AS = INKEYS : IF A$ = “”THEN 
GOTO 100 


100 LET AS = INKEYS 

110 IF A$ = “ ” THEN GOTO 100 


Note that on the Acorn, GETS makes the 
computer wait until a key is pressed, while the 
others have to be made to wait. 

Any string variable can be used— A$ is just 
an example. The computer stops at Line 100. 
If you then press R, AS will contain the letter 
R. You could enter a number or a space or — 
any of the characters on the keyboard — even 
keys such as | ENTER] . Although the entry can be 
virtually anything, it can only be one character 
long. As soon as a key is pressed, the computer 
carries on. 


DRAWING ON THE SCREEN 


Now look at the following program, which 
uses four keys to draw on the screen (this 
program does not RUN on the ZX81). 

It uses Z, X, P and L to draw on the Acorn, 
Dragon and Spectrum, and the cursor keys on 
the Commodores. You can also press 2 to draw 
in the screen colour so the line is invisible, and 
press 1 to return to line drawing again. 



10 MODE 1 

20 LET X = 500: LET Y = 500 
30 MOVE X,Y 
40 REPEAT 
50 LET A$ = GETS 
60 IF A$ = “P” THEN LET Y = Y -f 4 
70 IF A$ = “L” THEN LET Y = Y — 4 
80 IF A$ = “Z” THEN LETX = X-4 
90 IF AS = “X” THEN LETX = X + 4 
1 00 IF AS = “1” THEN GCOL0,3 




You can draw a screen image under 
complete keyboard control using a 
short, simple program 


The program allows you to take the 
line in different directions by pressing 
particular keys 


110 IF AS = “2” THEN GCOL0,0 

120 DRAW X,Y 

130 UNTIL AS = “□” 

BE 


100 IF A$ = “1” THEN COLOR 5 
110 IF A$ = “2” THEN COLOR 0 
120 IF A$ = “D” THEN STOP 
130 LINE (X,Y) — (XI ,Y1 ),PSET 
140 GOTO 40 



10 PM0DE4,1:PCLS:SCREEN 1,1 
20 LET X = 1 00 : LET Y = 1 00 
40 LET XI =X:LET Y1 = Y 
50 LET A$ = IN KEYS 
60 IF A$ = “P” THEN LET Y = Y1 
70 IF A$ = “L” THEN LETY = Y1-H 
80 IF A$ = “Z” THEN LET X = XI — ^ 
90 IF A$ = “X” THEN LETX=X1+< 


10 FOR Z = 0 TO 69:READ X 
20 POKE 832 + Z,X:NEXT Z :G0T0 90 
30 DATA 169,29,141,24,208,169,59,141, 
17,208 

40 DATA 169,32,133,252,169,0,133,251, 

160.0. 169.0.145.251 

50 DATA 200,208,251,24,165,252,201, 
63,240,4,230,252,208,236 
60 DATA 162,0,169,0,157,0,64,232,224, 
63,208,248 

70 DATA 162,0,169,13,157,0,4,157,0,5, 

157.0. 6.157.232.6.232.208.241.96 
90 SYS 832 

100 SC = 81 92:XX = 1 00:YY = 1 00:CO = 1 
1 1 0 LET Y = YY:LET X = XX 
120 GET A$:IF A$ = “” THEN GOTO 120 
130 IF A$ = “||” THEN LET X=X— 1 
140 IF A$ = “U" THEN LETX=X+1 
150 IF A$ = “n” THEN LET Y=Y— 1 
160 IFA$ = “H’ THEN LETY = Y+1 

165 IF A$ = “1” THEN CO = 1 

166 IF A$ = “2” THEN CO = 2 

170 LET L=SC+ ( INT(Y/8)*320 + 8* 
INT(X/8) + (Y AND 7)) 

180 IF L< 81 92 OR L>16191 THEN GOTO 
110 

190 LET XX = X:LET YY = Y 
200 IFCO = 1 THEN POKE L, PEEK(L) OR 
(2 T (7 — (XX AND 7))) 

210 GOTO 110 


10 INK 2 
20 PLOT 127,87 

30 IF INKEY$ = “p” THEN DRAW 0,2 
40 IF INKEYS = “I” THEN DRAW 0,-2 
50 IF INKEYS = “z” THEN DRAW -2,0 
60 IF INKEYS = “x” THEN DRAW 2,0 
70 IF INKEYS = “1” THEN INK 2 












Note that diagonals must be drawn as 
a series of short steps — you cannot 
press two keys at once 

EDIT, SEARCH, PRINT, LOAD, SAVE, STOP 
15 RESTORE 
20 FOR N = 1 TO 9 
30 READ HEADINGS 
40 PRINT TAB(5);N;TAB(10);HEADING$ 

50 NEXT N 

60 PRINT:PRINT TAB(5)“Y0UR CHOICE >” 
70 LET AS = GETS 
80 IF A$ = “1” THEN GOSUB 1000 
90 IF AS = “2” THEN GOSUB 2000 
100 IF AS = “3” THEN GOSUB 3000 
110 IF AS = “4” THEN GOSUB 4000 
120 IF A$ = “5” THEN GOSUB 5000 
1 30 IF AS = “6” THEN GOSUB 6000 
140 IF AS = “7” THEN GOSUB 7000 
1 50 IF AS = “8” THEN GOSUB 8000 
160 IF AS = “9” THEN GOSUB 9000 
170 GOTO 15 

SB 

Delete Line 70 in the Acorn program above 
and substitute: 

70 GET A$: IF A$ = “” THEN GOTO 70 


Practise drawing these shapes or any 
others which you would like to copy 
following the instructions below 

80 IF INKEY$ = “2” THEN INK 7 
90 IF INKEY$ = “D” THEN STOP 
100 PAUSE 10 
110 GOTO 30 

This kind of routine is extremely useful in 
graphics and games. The line is drawn while 
the keys are pressed. But note that the 
computer will take only one key at a time, so 
diagonal lines are rather difficult to draw as 
they consist of a series of short steps. 

Using INKEYS or GETS with single charac- 
ters is also very handy in any program using 
menus. The following program PRINTs out a 
menu as part of a datafile program. 

B 

10 DATA CREATE FILE, ENTER, VIEW, 


Delete Line 70 above and substitute: 

70 LET A$ = INKEV$: IF A$ = THEN 
GOTO 70 


Delete Lines 10 to 70 above and substitute: 

10 DATA “Create new file”, “Enter 
records”, “View records”, “Edit 
records”, “Search records”, 

“Print file”, “Load file”, “Save 
file”, “Stop” 

15 RESTORE 
20 FOR n = 1 TO 9 
30 READ h$ 

40 PRINT TAB 5; n; TAB 10; h$ 

50 NEXT n 

60 PRINT: PRINT TAB 5; “Your choice > ” 

70 LET A$ = INKEYS : IF A$ = “’’THEN 
GOTO 70 

With this program, the computer goes 
straight to the relevant subroutine as soon as 
you press a key — unless you press a key other 
than the numbers 1 to 9. In that case, Line 
170 rePRINTs the menu and then lets you have 
another go. 


A SECRET PASSWORD PROGRAM 


The previous program will work perfectly as 
long as there are no more than nine options. 
But if you try to type in 10 the computer 
assumes you are entering 1. This is because 
the program moves on as soon as you have 
typed the first digit. 

However, there is a way to enter whole 
words. And because nothing is shown on a 
screen it is ideal for entering a password or 
secfet code so that only you can RUN a 
program. Each digit is entered using INKEY$ 
or whatever, and then added on to the last 
one. Here is the program: 











50 NEXT Z 

60 IF P$< > “BANANAS” THEN END 
70 PRINT TAB(13) “□ PASSWORD 
OKAYED 

80 REM (REST OF PROGRAM FOLLOWS) 


10 PRINT “ENTER PASSWORD” 

20 LET K$ = INKEY$:IF K$ = “” THEN 
GOTO 20 

30 LET P$ = P$ + K$ 

40 IF LEN(P$)< >7 THEN GOTO 20 
50 IF P$< > “BANANAS” THEN STOP 
60 PRINT “O.K.” 

70 REM (REST OF PROGRAM FOLLOWS) 


On the ZX81, type entirely in capitals. Omit 
Line 40 and substitute: 


40 LET K$ = INKEYS 
45 IF K$ = “”THEN GOTO 40 


10 LET p$ = “” 

20 PRINT “ENTER PASSWORD” 

30 PAUSE 0 

40 LET k$ = INKEYS: IF k$ = “” THEN 
GOTO 40 

50 LET p$ = p$ + k$ 

60 IF LEN p$< >7 THEN GOTO 30 
70 IF p$< > “bananas” THEN STOP 
80 PRINT “O.K.” 

90 REM (rest of program follows) 

This routine starts off with an empty string 
(P$) and progressively adds on the characters 
one by one until the length of the password is 
correct. Since the characters entered are not 
PRINTed on the screen, it stops people watch- 
ing the screen and learning the password. 

Another use of INKEYS (and similar com- 
mands) is to delay a program. This is handy 
when a screenful of information has to be 
examined. After the information has been 
PRINTed, putting in an INKEYS, GETS or GET 
command stops any scrolling or clearing until 
you press a key (it doesn’t matter which). 

B 

The BBC micro and the Electron have a few 
more commands similar to GETS, but in 


n 

10 PRINT "“ENTER PASSWORD” 

15 REPEAT 
20 LET K$ = GETS 
30 LET P$ = P$ + K$ 

40 UNTIL LEN(PS) = 7 

50 IF P$ < > “BANANAS” THEN END 

60 PRINT “O.K.” 

70 REM (Rest of program follows) 


GB BE 


10 PRINT “□SBSSSSS” 
TAB(13) “ENTER PASSWORD” 

20 FOR Z=1 TO 7 

30 GET K$:IF K$ = “” THEN GOTO 30 
40 LET P$ = P$ + K$ 









The OPEN and CLOSE statements can in fact 
span the entire program if necessary: both, 
however, are essential. 

Try RUNning this as a one-line program. 
Then try to escape by simulating a possible 
accidental INPUT entry. It’s difficult, and 
points to the usefulness of escape-proof rout- 
ines such as this when someone perhaps 
unfamiliar with computers and INPUT rout- 
ines is left to his or her own device s. You can 
esca pe by simu ltaneously pressing IRUN/STOPI 
and iRESTOREl — an unlikely combination of 
keys to press by accident. 

If you want the program to accept null 
entries, simply delete the semicolon which 
follows the prompt statement. 

The one advantage of GET# is that, unlike 
INPUT#, it can read DATA which includes 
colons, semicolons, commas or RETURNs 
(CHR$13). With either type of INPUT state- 
ment, this can be done only by incorporating 
full quotes. 


certain cases more useful. The closest to GETS 
is INKEYS. The only difference is that, whereas 
a GETS command makes the computer wait 
forever, until a key is pressed, with IN KEYS 
you specify a time limit. 

IN KEYS is always followed by a number in 
brackets. This specifies the waiting time in 
hundredths of a second. So to make the 
computer wait for five seconds, you would 
write: A$ = INKEYS (500). This is an ex- 
tremely useful way of making a computer 
pause for a specified length of time. 

If a key is pressed before the end of the 
period, then the computer continues with the 
program — the time delay is simply a max- 
imum. If no key is pressed before the time is 
up, then a null string (“”) is returned. 
IN KEYS (0) makes the computer scan the key- 
board but not wait at all — useful in games 
where speed is most important. 

GET is similar to GETS, but, instead of 
returning a string, it gives the ASCII number 
of the key pressed. This does not appear on 
the screen, but it can be stored in a variable 
for use by the computer. IN KEY is similar to 
GET but, again, it is the key’s ASCII value which 
is returned. If no key is pressed within the time 
limit then a value of — 1 is given. 

IN KEY and IN KEYS take their values from 
the last character in the keyboard buffer. This 
is a separate section of memory that stores the 
keypresses. This is not accurate enough or 
fast enough for many games, where keys are 
being pressed rapidly or held down as the 


buffer may be storing a character from earlier 
in the game. But there is an alternative version 
which examines the keyboard itself rather 
than the buffer. 

You can follow IN KEY with a negative 
number in brackets. In this case the number is 
not a time limit, but a special code value of the 
key you are testing for. So if you wanted to see 
if the N key was being pressed you would use 
INKEY ( — 86). You’ll find a list of all the codes 
in the manual. 

IN KEY with a negative number checks all 
keys being pressed, even if you press them at 
the same time. So this technique is very useful 
for graphics or games where things like 
diagonal movement using two keys are 
needed. The following program demonstrates 
this. Compare it with the earlier program 
which used GETS, and you’ll see how much 
smoother the lines are using this method: 

10 MODE 5 
20 X = 500:Y = 500 
30 MOVE X,Y 
40 REPEAT 

50 IF INKEY( — 58) THEN Y = Y + 4 
60 IF INKEY( — 42) THEN Y = Y-4 
70 IF INKEY( — 26) THENX = X-4 
80 IF INKEY( — 1 22) THENX = X + 4 
90 DRAW X,Y 
100 UNTIL INKEY( — 99) 

Use the cursor control keys to draw and press 
the space bar to stop. 

At present, this program draws a contin- 
uous line and there is no way of leaving a gap. 
But add these next four lines to the program 
and have a choice of drawings in black, i.e. 
invisible, as well as red, yellow or white. Press 
B, R, Y or W for the colours. 


42 IF INKEY( — 1 01 ) THEN GCOL 0,0 
44 IF INKEY( — 52) THEN GCOL 0,1 
46 IF INKEY( — 69) THEN GCOL 0,2 
48 IF INKEY( — 34) THEN GCOL 0,3 


[EKS 


On Commodore computers there are two 
keywords, apart from the commonly used 
INPUT and GET, which can be used to enter 
information. 

INPUT # and GET # are input/output state- 
ments normally used to retrieve DATA from a 
device or file rather than the keyboard. GET # 
reads a single character at a time, whereas 
INPUT# retrieves DATA in the form of vari- 
ables of up to 80 characters in length. 

Of these two keywords, INPUT# is prob- 
ably the more useful. It can be incorporated as 
part of a useful escape-proof INPUT routine: 


1 00 OPEN 1 ,0: PRINT “COMMENT/PROMPT 
INPUT # 1 ,A$: PRINT: CL0SE1 
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SORT OUT 
YOUREXPI 




Just like a business machine, your 
computer can store or calculate 
financial records. Here’s a simple 
program to keep track of your 
income and expenditure 



Keeping track of family spending— ‘where 
does all the money go?’— is a problem with 
which most people are only too familiar. 

This household accounts program is de- 
signed to provide the answers. And it will run 
on all the machines except the Vic and ZX81. 

To update your accounts, you ‘feed’ it, once 
a month or whenever else you can spare the 
time, with the details of your income (for 
example, from pay slips) and expenditure (for 
example, from cheque books and standing 
orders). At any time you like, it will give you an 
analysis of how your money has been spent, 
and how your income and expenditure com- 
pare for the year to date. 

The program itself is quite long. But when 
you have entered it once, and SAVEd it on one 
or more tapes, it will last virtually forever — or 
at least until the tape or tapes wear out. 

The program gives you one column for 
income and seven for expenditure under 
different headings. These latter subdivisions 
can of course be varied to suit yourself: all you 
have to do is alter the wording in the DATA 
statements in the program when you enter it. 
Income, however, must be last, and you must 
have eight ‘columns’ altogether, or the 
program will not work. 

The program must be SAVEd in two 
sections— first, the actual program itself, and 
second, all the information you have fed into 
it up to your last entry. This means that you 
will need two program names, one for each of 
the two bits. 

To SAVE the program proper, just follow 
the normal SAVEing procedure for your ma- 
chine as given in your manual and/or on pages 
22 to 25 of Input. 

To reLOAD the program, again follow your 
usual procedure for LOADing taped games or 
your own programs. 

Instructions for SAVEing and LOADing the 
DATA itself are given below. 

When you RUN the program, the main 
menu will give you seven options: 

1 Make an entry 

2 View the entries 

3 Save on tape 

4 Load from tape 

5 Printer yes/no 

6 Change an entry 

7 Quit the program 


MAKING AN ENTRY 


To make an entry, press 1 whe n the m ain 
menu appears. Do not press I ENTER! or 
IRETURN 1 at this stage. 

The computer will ask you in turn for these 
items of information: Date; Item; Amount; 
and Category (the category you have already 
chosen and entered in the DATA statement). 

Key in the information in the order given, 
pressing | ENTER I or IRETURN I (whichever your 
computer uses) after each one. 

When you have completed your entries, 


wait for the computer to ask you for a new 
date, then press [ENTER] or [RETURN! . This will 
take you back to the main menu. 



To view an entry or series of entries, press key 
2 when the main menu appears. Do not press 
[ENTER] or | RETURN | . 

The computer will display a table showing 
the various categories— seven of expenditure, 
one of income. To select a category, press the 
appropriate number (again, do not press 
I ENTER! or [RETURN! ) and the computer will list 







ACORN/BBC: Disc users should 
delete lines 15, 30 and 870 and note 
that there will be less room for 
entries. 


■ 

ENTERING AND SAVEING 

■ 

UPDATING THE RECORDS 


THE PROGRAM 

■ 

CHECKING THE BALANCE 

■ 

THE MENU OPTIONS 

■ 

TAKING A PRINT-OUT 

■ 

MAKING AN ENTRY 

■ 

STORING YOUR FINANCES 


IN THE RECORDS 


ON TAPE 



all the items it has in that category, with the 
total to date at the end. 

On the Spectrum, the screen will display 
the question ‘scroll?’ if there is insufficient 
room to display all the entries simultaneously. 
Do not press N at this stage; you must go right 

through the listings. 

When you have finished, press 1 ENTER 1 or 
I RETURN | to get back to the main menu. 

If you select option 8, you will get not just 
an income total, but also the total for all 
categories of expenditure, plus your balance 
of income over expenditure (or vice versa). 


CHANGING AN ENTRY 


When you press 6 for the option to alter an 
entry, the computer will display a list of all the 
entries you have made, regardless of category. 

You can move backwards or forwards 
among the list by using the prompts which 
will appear on the screen. The computer will 
also tell you how to edit the entry. 

Once you have pressed 1 ENTER I or IRETURNI 
after making the alteration, the computer will 
automatically return you to the main menu. 
To make a second alteration, you will have to 
select option 6 again. 


PRINTER OPTION 


The printer option command is as simple as a 
light switch — it is either ‘on’ or ‘ofP. 

When yo u press option 5 (without |ENTER| 
or [RETURN 1 !) on the main menu, the computer 
will ask you to press Y if you want to use the 
printer, N if you don’t. If you press Y, you will 
be returned to the main menu and (until you 
return to option 5 and turn the printer off) all 
the information that would normally be dis- 
played on the screen when using option 2 will 
be printed out instead. 

Be very careful not to press Y if you have no 
printer connected. The Spectrum will ignore 
the instruction in this case, but on any of the 
other three computers you could lose all the 
information you have entered so far. 


SAVEING AND LOADING 


The second stages of SAVEing and LOADing 
are as follows: 

To SAVE the financial DATA you ha ve 
entered press option 3 (without IRETURNI or 
I ENTER I) . Now type in a name for the file — 
“MONEYFILE”, for example. Then press 
IRETURNI or I ENTER I and the ‘record’ button on 
your tape recorder. When the DATA has been 
SAVEd you will be returned to the main menu 
where you can press option 7 to quit the 
program. 

To LOAD the information that you have 
SAVEd previously, press option 4 on the main 
menu. Now enter your file’s name and press 
IRETURNI or | ENTER I, then push the ‘play’ 
button on your tape recorder. When the 
program has been loaded the computer will 
take you back to the main menu. 



10MODE6 
15 * TAPE 
20 *0PT1,1 
30 *0PT2,1 

40 @% = &2020A: N = 0:W = 3:VDU1 4: 

PAY = 0: SPENT = 0: DIM A$(300), 
A(300), D$(300),K$(7) 

50 FOR T=0 TO 7:READ K$(T): NEXT T 
60 PROCMENU 

70 IF A=1 THEN PROCENTRY 
80 IF A = 2 THEN PROCVIEW 
90 IF A= 3 THEN PROCSAVE 
100 IF A = 4 THEN PROCLOAD 
110 IF A = 5 THEN PROCPRINT 
120 IF A= 6 THEN PROCCHANGE 
130 IF A< >7 THEN 60 
140 PRINT“ARE YOU SURE (Y/N)”: 

G = GET AND &5F:IF G < > 89 THEN 60 
150 M0DE6:END 
160 DEF PROCENTRY 
170 Z=0:CLS 

180 IF N>299 THEN PRINT''“MEMORY 
FULL’.SOUNDI , — 1 5,1 00,5: 

G = INKEY(200):ENDPROC 
190 PRINT'“Type RETURN in the DATE 
field for MENU” 

200 PRINT'“DATED □ □ □ □ □ 

ITEM □□□□□□□□□□□ 
□AMOUNTED □□CATGY” 

210 VDU28,0,24,39,4 
220 INPUT TAB(0,Z)D$(N + 1 ):IF 
D$(N + 1) = “” THEN 350 
230 INPUT TAB(10,Z)A$(N + 1 ):INPUT 
TAB(26,Z)A(N + 1 ):INPUT TAB(35,Z) 

CA$ 

240 D$(N + 1 ) = LEFT$(D$(N + 1 ),8): 

A$(N + 1 ) = LEFT$(A$(N + 1 ),1 6) 

250 GOTO 270 

260 PRINT TAB(35,Z)“D □□□□”: 

INPUT TAB(35,Z)CA$ 

270 X = 0:FOR T = 0 TO 7:IF INSTR 
(K$(T),CA$) = 1 THEN X=X+1:Y=T 
280 NEXT 

290 IF X< >1 THEN 260 

300 A$(N + 1 ) = CHR$(Y) + A$(N + 1 ) 

310 IF Y=7 THEN PAY= PAY+A(N + 1) 
ELSE SPENT = SPENT + A(N + 1) 
320Z=Z+1:N = N + 1 
330 IF Z> 19 THEN Z = 0:CLS 
340 GOTO220 
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A$(T),A(T) 

900 IF ASC(A$(T)) = 7 THEN PAY = 

PAY 4- A(T) ELSE SPENT = 

SPENT + A(T) 

910 NEXT:CLOSE#H:ENDPROC 

920 DEF PROCPRINT 

930 PRINT" PRINTER (Y/N)” 

940 G = GET AND &5F:IF G = 89 THEN 
W=2:GOTO 960 

950 IF G< >78 THEN 940 ELSE W=3 
960 ENDPROC 
970 DEF PROCCHANGE 
980 CLS:T = 1 

990 IF N = 0 THEN ENDPROC 
1000 REPEAT 

1010 CLS:PRINT"‘‘ENTRY NUMBER 
STR$(T)'D$(T),RIGHT$(A$(T), 

LEN(A$(T)) — 1 )“£”;A(T), 
K$(ASC(A$(T)))" 

1020 PRINT''"',' TO MOVE BACK”' 

TO MOVE FORWARD”'“SPACE 
BAR TO CHANGE ENTRY” 

1030 A$ = GETS 

1040 IF A$ = “,” THEN T= T — 1 : IF T<1 
THEN T=1 

1050 IF A$ = “.” THEN T=T+1:IF T>N 
THEN T=N 

1060 UNTIL (A$ = “D” OR A$ = CHR$(13)) 
1 070 IF AS = CHR$(1 3) THEN ENDPROC 
1080 E = T:PRINT'“CHANGING THIS 
ENTRY” 

1090 CA$ = CHR$(ASC(A$(E))) 

1100 IF ASC(A$(E)) = 7 THEN PAY = 
PAY-A(E) ELSE SPENT = SPENT— 

A(E) 

1110 INPUT“DATED”,Q$:IF Q$< >“” 
THEN D$(E) = Q$ 

1120 INPUT" ITEMD”,Q$:IF Q$< >“” 
THEN A$(E) = Q$ ELSE A$(E) = RIGHTS 
(A$(E),LEN(A$(E)) — 1) 

1130 INPUT“AMOUNTD”,Q$:IF Q$< >“” 
THEN A(E) = EVAL(Q$) 

1140 INPUT“CATEGORYD”,Q$:IF 
Q$ < > THEN CAS = Q$ 

1150 GOTO 1170 

1160 INPUT“RE- ENTER CATEGORY”, CAS 
1170 X = 0:FOR T = 0 TO 7 
1180 IF INSTR(K$(T),CA$) = 1 THEN 
X = X + 1:Y=T 
1190 NEXTT 

1200 IF X < > 1 THEN 1160 
1210 A$(E) = CHR$(Y) + A$(E) 

1220 IF Y = 7 THEN PAY = PAY + A(E) ELSE 
SPENT = SPENT +A(E) 

1230 PRINT“CORRECTION MADE”: 

G = INKEY(200) 

1240 ENDPROC 
1250 DATA HOUSEKEEPING, 
ENTERTAINMENT, RATES & RENT, 
CLOTHING, MOTORING, HOLIDAYS, 
MISCELLANEOUS, INCOME 


350 VDU28,0,24,39,0: EN DPROC 
360 DEF PROCSHOWCAT 
370 CLS:SUM = 0:VDU W 
380 PRINT' K$(C) 'STR(NG$(LEN(K$(C)>, 
CHR$(224)) 

390 VDU28,0,24,39,3 
400 FOR T = 1 TON 
410 IF N = 0 THEN 460 
420 S$ = RIGHT$(A$(T),1 ) 

430 IF ASC(LEFT$(A$(T),1 )) < > C 
THEN 460 

440 PRINT'D$(T)TAB(1 0)RIGHT$ 
(A$(T),LEN(A$(T)) — 1 )TAB(29), 

A(T); 

450 SUM = SUM + A(T) 

460 NEXT 

470 PRINTTAB(32)“ ” 

480 PRINTTAB(22)“TOTALD£”,SUM 
490 IF C< >7 THEN 520 
500 PRINT'“YOUR TOTAL EXPENDITURE 
ISD£”;SPENT 

510 PRINT"“YOUR BALANCE ISCH”; 

PAY -SPENT 
520 VDU1 ,1 0,1 ,1 0 
530 VDU 3 

540 PRINT"“PRESS ANY KEY TO 
CONTINUE WITH VIEWING”"“PRESS 
RETURN FOR MAIN MENU” 

550 G = GET:VDU28,0,24,39,0:ENDPROC 
560 DEF PROCVIEW 
570 CLS: PRINT 

580 FOR T=0 TO 7:PRINT'TAB(10); 

STR$(T+1);“D □”;K$(T):NEXT 
590 PRINT"“WHICH CATEGORY NUMBER ?”; 
138 600 C= GET- 49 


610 IF C= -36 THEN ENDPROC 

620 IF C<0 OR C>7 THEN 600 

630 PROCSHOWCAT 

640 IF G = 13 THEN 650 ELSE 570 

650 ENDPROC 

660 DEF PROCMENU 

670 CLS 

680 PRINTTAB(1 0,2)“MAIN MENU” 

690 PRINTTAB(1 0,5)“1 : — Make an entry” 
700 PRINTTAB(10,7)“2: — View entries” 
710 PRINTTAB(10,9)“3: — Save to tape” 
720 PRINTTAB{1 0,1 1 )“4: — Load from 
tape” 

730 PRINTTAB(1 0,1 3)“5: — Printer 
option” 

740 PRINTTAB(1 0,1 5)“6: — Change entry” 
750 PRINTTAB(1 0,17)“7: — Quit program” 
760 PRINTTAB(10,20)“SELECT OPTION” 
770 A= GET- 48 
780 IF A<1 OR A> 7 THEN 770 
790 ENDPROC 
800 DEF PROCSAVE 
810 INPUT “NAME OF FILE”,D$:IF 
D$ = “” THEN ENDPROC 
820 IF D$ = “” THEN ENDPROC 
830 H = OPENOUT(D$):PRINT“SAVING 
INFORMATION NOW”:PRINT# H,N 
840 FOR T=1 TO N: PRINT # H,D$(T), 
A$(T),A(T):NEXT:CLOSE #H: 
ENDPROC 

850 DEF PROCLOAD 

860 IN PUT" LOAD WHICH FILE”,D$ 

870 PRINT" PRESS PLAY ON RECORDER” 
880 H = OPENIN(D$):INPUT # H,N 
890 FOR T=1 TO N:INPUT# H,D$(T), 
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1100 NEXT n: GOTO 1080 

1130 IF n = 8 THEN LET cr=cr+a(c) 

1140 IF n < >8 THEN LET tt=tt+a(c) 
1150 PRINT TAB 29;c$(n,v TO 3) 

1160 LET a$(c,v) = CHR$ (48 + n) 

1200 LET c = c + v: GOTO 1015 
2000 FOR n = v TO 8: PRINT PAPER v; 

INK 7;AT n*2,6;“D”;n;“: — □”; 
c$(n): NEXT n 

2010 PRINT FLASH v; INK 2;AT 19,3; 

“□Select category (1 to 8)D” 

2020 IF INKEY$ = “” THEN GOTO 2020 
2030 LET z$ = INKEY$: IF z$ < “1 ” OR 
z$>“8” THEN GOTO 2020 
2040 LET t=u: LET c = u 
2050 CLS : PRINT #p; PAPER 6; 

BRIGHT v;TAB10;c$(VALz$); 

TAB 31; 

2055 LET c=c + v: IF c=mn THEN GOTO 
2500 

2060 IF a$(c,v) = “D” THEN GOTO 2500 
2070 IF a$(c,v) < >z$ THEN GOTO 2055 
2080 PRINT # p;a$(c,2 TO 9); TAB 10; 
a$(c,1 0 TO 23); 

2090 LET am = a(c)*100: LET n$ = STR$ 
am: PRINT #p;TAB 29;k$;TAB 31 - 
LEN n$;a(c) 

2100 LET t=t+a(c) 

2110 GOTO 2055 
2500 PRINT # p;TAB 25; 

“ LET tx = t*100: 

LET n$ = STRS tx: PRINT #p;TAB 
1 2;“TOTAL: - □”;TAB 29;k$;TAB 
31 -LEN n$;t 

2510 IF z$< >“8” THEN GOTO 2590 
2520 LET tz = tt* 1 00: LET n$ = STRS 
tz: PRINT '#p;“TOTAL 


EXPENDITURE: - D”;TAB 29;k$;TAB 
31 -LEN n$;tt 

2530 LET ba = (t— tt)*100: LET n$ = 

STRS ba: PRINT '#p;TAB 10; 
“BALANCE: - D”;TAB 29;k$;TAB 31 - 
LEN n$;ba/1 00 
2590 PRINT PAPER 2; INK T 
“□ □ □ □ Press a key to 
continue □ □ □ □” 

2600 PAUSE u: IF PEEK 23560 = 13 
THEN RETURN 
2610 CLS : GOTO 2000 
3000 GOSUB 8000: IF re=v THEN 
RETURN 

3010 PRINT PAPER 6;AT 10,u;“D Enter 
a file name for the dataD”: 

INPUT LINE w$: IF LEN w$ > 1 0 OR 
LEN w$<v THEN GOTO 3010 
3020 CLS : SAVE w$ DATA a(): SAVE 
w$ DATA a$(): RETURN 
4000 GOSUB 8000: IF re = v THEN 
RETURN 

4010 PRINT BRIGHT v;AT 10,u;“Enter 
name of data to be loaded”: 

INPUT LINE w$: IFLENw$>10 
THEN GOTO 4010 

4020 PRINT PAPER 3; INK 7;AT 10,u; 

“□ □ □ Insert tape and press 
play □□□” 

4030 LOAD w$ DATA a(): LOAD w$ 

DATA a$() 

4040 LET cr=u: LET tt = u: FOR n = v 
TO mn: IF a$(n,v) = “8” THEN LET 
cr=cr+a(n) 

4050 IF a$(n,1)< >“8” THEN LET 
tt=tt+a(n) 

4060 NEXT n: RETURN 


50 LET mn = 200: IF PEEK 23733 = 127 
THEN LET mn = 100 
100 DIM c$(8,16): DIM a(mn): DIM 
a$(mn,23) 

110 LET u = 0: LET v = 1 

120 FOR n = v TO 8: READ c$(n): NEXT n 

130 POKE 23658,8 

140 LET k$ = “.00”: F0Rn=vT0 7: 

LET k$ = k$ + CHR$ 8: NEXT n 
190 LET p = 2: LET tt=u: LET cr=u 
200 CLS : PRINT BRIGHT v; PAPER 

2; INK 6;AT 2,6; “DDMDADIDND 
□ MDEDNDUDD” 

210 PRINT BRIGHT v; PAPER 7;AT 
5,6;“ □ 1 : — DMAKE AN ENTRY □ 

AT 7,6;“D2: — DVIEW 
ENTRIES □ □ D”;AT 9,6;“ □ 3: 

- □ SAVE TO TAPED □ AT 
11,6;“D4: — DLOAD FROM TAPED”; 
AT 1 3,6;“ □ 5: - □ PRINTER OPTION □ ”; 
AT 1 5,6;“ □ 6: — □ CHANGE 
ENTRYDDD”;AT 1 7,6;“D7: 

— DQUIT PROGRAMDDD” 

220 PRINT INK 3; FLASH v; BRIGHT 
v;AT 20,6;“ □ - □ SELECT 
OPTION. □ — 

230 IF INKEYS = “” THEN GOTO 230 
240 LET z$ = INKEYS: IFz$<“1” OR 
z$ > “7” THEN GOTO 230 
250 CLS: GOSUB 1000‘VALz$ 

260 GOTO 200 
1000 LET c = u 

1005 LET c=c+v: IF c = mn + v THEN 
RETURN 

1006 IF a$(c,v) = “D” THEN GOTO 1010 

1007 GOTO 1005 

1010 PRINT AT u,u; BRIGHT v; PAPER 
2; INK 7;“D □ DATED □ □ □ □ □ 
ITEM □ □ □ □ □ DAMOUNTDCAT” 
1015 IF c = mn + v THEN RETURN 
1020 INPUT “Enter dateD”; LINE 
a$(c,2 TO 9): IF a$(c,2) = “D” 

THEN RETURN 

1030 PRINT TAB u;a$(c,2 TO 9); 

1040 INPUT “Enter itemD”; LINE 
a$(c,10 TO 23): IF a$(c,10) = “D” 

THEN GOTO 1040 
1050 PRINT TAB 9;a$(c,10 TO 21); 

1060 INPUT “AmountD”;a(c): IF 
a(c) = u THEN GOTO 1060 
1070 LET w=a(c)*100: LET v$ = STRS 
w: PRINT TAB 27 — LEN v$;a(c); 

1080 INPUT “CategoryD”; LINE f$: 

IF f$ = “” THEN GOTO 1080 
1090 FOR n = v TO 8: IF f$ = c$(n,v 
TO LEN f$) THEN GOTO 11 30 



mmm 


5000 PRINT BRIGHT v;AT10,u; 

“□ Do you want to print out Y/N?D” 
5010 PAUSE u: IF INKEY$ = “” THEN 
GOTO 5010 
5020 LET z$ = IN KEYS 
5030 IF z$ = “N” THEN LET p = 2: 

RETURN 

5040 IF z$ = “Y” THEN LET p=3: 

RETURN 

5050 GOTO 5010 

6000 LET c=v: IFa(c) = uTHEN RETURN 
6010 PRINT AT u,u; BRIGHT v; 

PAPER (VAL a$(c,v))-v; INK 9; 

“ □ Number □ ”;c,c$(VAL a$(c,v)) 

6015 PRINT PAPER 2; INK 7;"“DATE 

□ □□□□□iTEMnnnnn 

□ □ □ □ □ □AMOUNTD”: 

PRINT 'a$(c,2 TO 9);TAB 10;a$ 

(c, 10 TO 23); 

6020 LET am = a(c)*100: LET n$ = STR$ 
am: PRINT TAB 29;k$;TAB 31 - LEN 
n$;a(c) 

6030 PRINT PAPER 3; INK 7;AT 20, u; 
“□AD — DForwardsn □ □ □ 

QD — □ BackwardsD □□□□□□ 
EDIT to alter record 
□□□□□□□” 

6040 PAUSE u 

6050 IF INKEYS = “Q” AND c>v THEN 
LET c = c— v: GOTO 6010 
6060 IF INKEYS = “A” AND c< >mn THEN 
LET c=c+v 

6070 IF a(c) = u THEN LETc = c-v 
6080 IF PEEK 23560 = 7 THEN GOTO 6100 
6090 GOTO 6010 
6100 INPUT BRIGHT v; “Enter new 
dateD”; LINE a$(c,2 TO 9): IF 
a$(c,2) = “D” THEN GOTO 6100 


6110 PRINT AT 5,u;a$(c,2 TO 9) 

6120 INPUT BRIGHT v;“Enter new 
itemD”; LINE a$(c,10 TO 23): IF a$ 
(c,10) = “D” THEN GOTO 6120 
6130 PRINT AT 5,10;a$(c,10 TO 23) 

6135 IF a$(c,v) = “8” THEN LET 

Q|> — Ql” 3(C) 

6136 IF a$(c,v)< >“8” THEN LET 
tt=tt-a(c) 

6140 INPUT BRIGHT v;“Enter new 
amountD”;a(c): IF a(c) = u THEN 
GOTO 6140 

6150 LET am = a(c)*100: LET n$ = STR$ 
am: PRINT AT 5,29;k$;TAB 31 - LEN 
n$;a(c) 

6160 INPUT BRIGHT v;“Enter new 
category LINE f$: IF f$ = “” 

THEN GOTO 6160 

6170 FOR n=v TO 8: IF f$ = c$(n,v 
TO LEN f$) THEN GOTO 6190 
6180 NEXT n: GOTO 6160 
6190 LET a$(c,v) = CHR$ (48 + n) 

6200 IF n = 8 THEN LET cr=cr+a(c) 
6210 IF n < 8 THEN LET tt=tt+a(c) 
6220 RETURN 

7000 GOSUB 8000: IF re=v 
THEN RETURN 
7010 RANDOMIZE USR u 
8000 PRINT PAPER 4;AT 10,9;“DAre 
you sure?D” 

8010 PAUSE u: LET re = u: IF INKEYS 
< >“Y” THEN LETre = v 
8020 RETURN 

9000 DATA “HOUSEKEEPING”, 
“ENTERTAINMENT”, “RENT AND 
RATES”, “CLOTHING”, “MOTORING”, 
“HOLIDAYS”, “MISCELLANEOUS”, 
“INCOME” 


ES 


On the Tandy, use 247 instead of 223 in Lines 
6040, 6050 and 6060. 

10 PMODE0:PCLEAR1 :CLEAR1 0000 
20 DIM TE$(200),AM(200),DA$(200), 
CT$(8),CA(200) 

30 FOR N = 1 TO 8:READ CT$(N):NEXT 
40 DATA HOUSEKEEPING, ENTERTAINMENT, 
RENT AND RATES, CLOTHING, MOTORING, 
HOLIDAYS, MISCELLANEOUS, INCOME 
50 U1$ = “# ######.# #”: 

I I9 < R = “=C i dH dH Jt" 

60 CLS4:PRINT@11,“main menu”;: 
PRINT@70,“1 : - □ ENTER DATA 

□ □ □ □ □ □”;:PRINT@134, 

“2: - DVIEW ENTRIESD □ □ 

PRINT@1 98, “3: — □ SAVE TO 
TAPED □□□”; 

70 PRINT@262,“4: — □ LOAD FROM TAPE 

□ □”;:PRINT@326,“5: - □ PRINTER 
OPTION □ □”;:PRINT@390,“6:— □ 
CHANGE AN ENTRYD”;:PRINT@454, 

“7: - □ QUIT PROGRAM □□□□”; 

80 AS = INKEY$:IF AS < “1 ” OR A$ > “7” 
THEN 80 

90 ON VAL(A$) GOSUB 1000,2000,3000, 
4000,5000,6000,7000 
100 GOTO 60 

1000 CLS:IF NU > 200 THEN PRINT@264, 
“MEMORY FULLD!”:PLAY“T1 0ABCDEFG 
PI P1”:RETURN 
1010 GOSUB 1160 
1020 GOSUB 1 250: IN PUT“ DATE □ ”; 

DA$(NU) 

1030 IF DA$(NU) = “” THEN RETURN 
1040 IF LEN(DA$(NU)) > 8 THEN 1020 
1050 PRINT@L,DA$(NU); 

1060 GOSUB 1 250:LINEINPUT“ITEM □?”; 
TE$(NU):IF LEN(TE$(NU))>25 THEN 
1060 

1 070 AS = LEFT$(TE$(NU),1 1 ):PRINT@L+ 

15 — LEN(A$)/2,A$; 

1080 GOSUB 1250:INPUT“AMOUNTn”;A 
1090 IF A >9999.99 OR A<0 THEN 1080 
1100 PRINT@L+ 21, USING U2$;A;: 

AM(NU) = A 

1110 GOSUB 1250:INPUT“CATEGORYD”; 

CA$ 

1120 GOSUB 1180:IFF = 0 THEN 1110 
1130 CA(NU) = NM:PRINT@L+ 29, LEFTS 
(CT$(CA(NU)),3); 

1140 IF NM< >8 THEN GT = GT + A 
1150 NU = NU + 1:L= L + 32:IF L = 448 THEN 
1000 ELSE 1020 

1 1 60 L = 64: PRINT@2,“date”TAB(1 3)“item” 
TAB(22)“amount”TAB(29)“cat”; 

1170 RETURN 

1 1 80 IF VAL(CAS) <> 0 THEN 1 230 
1190 F=0:FOR N = 1 TO 8 







4050 INPUT# -1,NU 
4060 FOR N = 0 TO NU — 1 
4070 INPUT# — 1,DA$(N),TE$(N),AM(N), 
CA(N) 

4080 IF CA(N)< >8 THEN GT = GT + AM(N) 
4090 NEXT:CLOSE #-1:RETURN 
5000 CLS:PRINT@65,“DO YOU WANT THE 
PRINTER OND?D □ □ □ □(Y/N)”; 

501 0 A$ = INKEY$:IF A$ < > “Y” AND 
A$< >“N” THEN 5010 
5020 PRINT 11 OK”:IF A$ = “N” THEN PT= 
0:RETURN 

5030 F$=“%nnnnnnnn 
%%□ □□□□□□□□□ 
□□□□□□□□□□□□a 

%□ □ □” + U2$:PT = 1:RETURN 
6000 IF NU = 0 THEN RETURN 
6010 CLS: PRINT" □ □date”TAB(12) 
“item”TAB(22)“amount”TAB(29)“cat” 
6020 PRINT@417, “PRESS [DOWN] TO GO 
FORWARDDDDDDDOR 
[UP] TO GO BACKWARDS.” 

6030 PRINT@481, “PRESS THE SPACE BAR 
TO EDIT.”;:M = 0:GOTO 6080 
6040 IF PEEK (341 ) = 223 AND M > 0 THEN 
M = M — 1:GOTO 6080 
6050 IF PEEK(342) = 223 AND M < NU - 1 
THEN M = M + 1 :GOTO 6080 


1200 IF CA$ = LEFT$(CT$(N),LEN(CA$)) 

THEN F = F + 1:NM = N 
1210 N EXT : I F F>1 THEN F = 0 
1220 RETURN 

1230 IF VAL(CA$)>8 THEN F = 0:RETURN 
1240 NM = VAL(CA$):F = 1 :RETURN 
1 250 PRINT@448,“ □ PRINT@449,;:RETURN 
2000 CLS3:FOR N = 1 TO 8 
2010 PRINT@69 + N‘32,N;MID$(“: — □” + 
CT$(N) + STRING$(1 2,“ □ ”),1 ,20); 

2020 NEXT 

2030 TT=0:PRINT@449 “WHICH 
CATEGORY □?”; 

2040 A$ = INKEY$:IF A$ < “1 ” OR A$ > “8” 
THEN 2040 
2050 NM = VAL(A$) 

2060 IF PT = 1 THEN PRINT# -2,CHR$(13): 
PRINT# — 2,TAB(21 — LEN(CT$(NM))/2); 
CT$(NM): PRINT # —2 DDATE’TAB 

(20)“ITEM”TAB(39)“AMOUNT” 

2070 GOSUB 2280 

2080 FOR NN = 0 TO NU 

2090 IF CA(NN) < > NM THEN 2150 

2100 IF PT = 1 THEN PRINT# -2, USING F$; 

DA$(NN);TE$(NN);AM(NN) 

21 1 0 PRINT@L,DA$(NN);:A$ = LEFT$(TE$ 
(NN),15):PRINT@L+17 — LEN(A$)/2,A$;: 
PRINT@L+25, USING U2$;AM(NN);: 
TT=TT + AM(NN) 

2120 L= L+32:IF (L=448 AND NM< >8) 
OR (L = 352 AND NM = 8) THEN PRINT 
@465, “scroll □ ?”; ELSE GOTO 2150 
21 30 A$ = INKEY$:IF A$ = THEN 21 30 

2140 GOSUB 2280 

2150 NEXT:IF PT=1 THEN PRINT# -2, 
CHR$(13):IF NM< >8 THEN PRINT 
# — 2,TAB(28);:PRINT# -2, USING 
“TOTALD = ” + U1$;TT 
2160 PRI NT@463, USI NG“total □ = ” + U1$;TT; 
2170 IF NM< >8 THEN 2250 
2180 IF PT=0 THEN 2220 
2190 PRINT# — 2,TAB(21);:PRINT# -2, 
USING“TOTAL INCOMED = ” + U1 $;TT 
2200 PRINT# — 2,TAB(16);:PRINT# -2, 
USING“TOTAL EXPENDITURES =” 

+ U1$;GT:PRINT # — 2,TAB(35) 

(( >> 

2210 PRINT# — 2,TAB(26);:PRINT # -2, 
USING“BALANCED = ” + U1$;TT- GT 
2220 PRINT@392,USING“total incomes = ” 

+ U1$;TT; 

2230 PRINT@419,USING“total 
expenditure □ = ” + U1$;GT; 

2240 PRINT@461,USING“balanceS = ” + 

U1$; TT— GT; 

2250 A$ = INKEY$:IF A$ = THEN 2250 
2260 IF A$< >CHR$(13) THEN 2000 
2270 RETURN 

2280 L=64:CLS NM:PRINT@(33-LEN(CT$ 
(NM)))/2,CT$(NM); 

2290 PRINT @34,“date”;:PRINT@46, 


“item”;: PRINT@57, “amount”; 

2300 FOR N = 32 TO 41 6 STEP 32 
2310 POKE N + 1032,122 + NM‘16:POKE 
N + 1048,117 + 16*NM 
2320 NEXT:RETURN 

3000 CLS:MOTORON:PRINT@65, “POSITION 
TAPE THEN PRESS [ENTER]” 

3010 A$ = INKEY$:IF A$ = “” THEN 3010 
3020 MOTOROFF:PRINT@65, “PRESS 
RECORD ON TAPE □ □ □ □ □ □ 

□ □□□□□ THEN PRESS [ENTER]’’ 
3030 A$ = INKEY$:IF A$ = “” THEN 3030 
3040 CLS:PRINT@65,;:INPUT“NAME OF 
DATA DAS 

3050 OPEN “0”,# -1,DA$ 

3060 PRINT# — 1,NU 
3070 FOR N = 0 TO NU — 1 
3080 PRINT # — 1 ,DA$(N),TE$(N),AM(N), 
CA(N) 

3090 NEXTrCLOSE # — 1 : R ETU R N 
4000 CLS:PRINT@65,;:INPUT“FILE 
NAME”;DA$ 

4010 MOTORON:PRINT@64, “POSITION 
TAPE THEN PRESS [ENTER]” 

4020 AS = INKEY$:IF AS = “” THEN 4020 
4030 MOTOROFF:GT = 0:OPEN “I”, 

^ _ *1 da $ 

4040 PRINT@129,“FOUNDS”;DA$ 









6060 IF PEEK(345) = 223 THEN 6100 
6070 GOTO 6040 

6080 PRINT@64,USING“%D □ □ □ □ □ 
%□%□□□□□□□□□□ 
%####.##□%□□%”; 
DA$(M);LEFT$(TE$(M),1 1 );AM(M); 
LEFT$(CT$(CA(M)),3) 

6090 GOTO 6040 
6100 IF CA(M)< >8 THEN 
GT=GT— AM(M) 

6110 INPUT“NEW DATED”;D$:IF D$ = “” 
THEN 6130 

61 20 IF LEN(D$) > 8 THEN 61 1 0 ELSE 
DA$(M) = D$ 

6130 INPUT“NEW ITEMD”;D$:IF D$ = “” 
THEN 6150 
6140 TE$(M) = D$ 

6150 INPUT“NEW AMOUNTD”;A:IF A=0 
THEN 6170 

6160 IF A<0 OR A >9999.99 THEN 6150 
ELSE AM(M) = A 

6170 INPUT“NEW CATEGORYD”;CA$:IF 
CA$ = “” THEN 6200 
6180 GOSUB1 1 80:IF F=0 THEN 6170 
6190 CA(M) = NM 
6200 IF CA(M)< >8 THEN 
GT=GT+AM(M) 

6210 RETURN 

7000 CLS:PRINT@69,“ARE YOU SURED 

(Y/N )□?”; 

7010 A$ = INKEY$:IF A$< >“Y” AND 
A$< >“N” THEN 7010 
7020 IF A$ = “N” THEN RETURN 



Can the Dragon and Tandy 
produce lower case characters — 
such as the letters ‘a’ to ‘z’? 

The Dragon can output lower case 
characters on a printer, but not on the 
screen. This is good news if you have a 
printer, because you can print 
documents, such as letters or 
broadsheets, more attractively using a 
mixture of the cases. But even if you 
use only a TV set , you can still 
distinguish between the cases. 

When you switch on the machine, it 
is set up automatically in upper case 
mode — it gives black capitals on a 
green backg round. To enter lower case 
mode, press ISHIFTI and 0 together. This 
releases a CAPS lock, so that when the 
letters from ‘A’ to ‘Z’ are pressed, they 
appear in reversed colours — green 
capitals on a black background. 

All commands to the computer must 
be in upper case — ‘A’, for example. A 
printer outputs ‘A’ as upper case ‘A’ and 
reversed ‘A’ as lower case ‘a’. To 
return to upper case mode, press/ 
ISHIFTI and 0 together again. 


20 PRINT “□”:P0KE 53280, 0:POKE 
53281, 0:DIM D$(4,400):CO = 0 
30 A$(1 ) = “H0USEKEEPING”:A$(2) = 
“ENTERTAINMENT”:A$(3) = “RENT & 
RATES” 

40 A$(8) = “INC0ME”:A$(4) = “CLOTHING”: 

A$(5) = “M0T0RING”:A$(6) = “HOLIDAY” 
50 A$(7) = “MISCELLANEOUS” 

60 PRINT “□□HHH”TAB 
(i3)“annnaMAiN 
MENUD □ □ □”:PRINT TAB(13) 

“US SI- MAKE AN ENTRY” 

70 PRINT TAB(13)”H2. VIEW ENTRIES”: 

PRINT TAB(13)”H3- SAVE TO TAPE” 

80 PRINT TAB(13)“H4. LOAD FROM 
TAPE”:PRINTTAB(13)”H5. PRINTER 
OPTION” 

90 PRINTTAB(13)“H6- CHANGE ENTRY” 

100 PRINT TAB(13)“H7. QUIT PROGRAM”: 
PRINT TAB(13)“HS EWDD 
ENTER CHOICE ?□” 

110 GET K$:IF VAL(K$)<1 OR 
VAL(K$)>7 THEN 110 
1 20 C$ = “”:KK$ = K$:IF K$ = “1 ” THEN 
GOTO 500 

130 IF K$ = “2” THEN GOSUB 440: 

GOTO 640 

140 IF K$ = “3” THEN GOSUB 830: 

GOTO 790 

150 IF K$ = “4” THEN GOSUB 830: 

GOTO 810 

160 IF K$ = “5” THEN PRINT 
GOSUB 600 

170 IF K$ = “6” AND CO < > 0 THEN 
C$ = “Y”:CQ = 1 :QQ$ = D$(4,1 ): 

GOTO200 

180 IF K$ = “7” THEN PRINT TAB(13);: 
INPUT“Q DARE YOU SURED □ □ 
llll”; K$:IFK$ = “Y”THENEND 
190 GOTO 60 
200 CC = 0:C1 =0 

210 PRINT“Q SS” : IFC$ = “Y”THEN 
PRINTTAB(12)“a ENTRY 
NUMBER”CQ 

220 PRINT “HQ”TAB(20-(LEN(A$ 
(VAL(QQ$)))‘.5))A$(VAL(QQ$)) 

230 PRINT “HU 


240 PRINT “□□BaDATEUnO 

□ □□□□□□□□ Q ITEMU 

□□□□□□□□□□□ 

AMOUNTU” 

250 PRINT “ 

”: SC = 0 

260 IFC$ = “Y”THENC1 = CQ:GOSUB370: 
GOTO860 

270 Cl = C1+ 1 :IF D$(4,C1 ) = QQ$ THEN 
GOSUB 370:IF PR$ = “N” THEN 
SC=SC + 1 
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- SELECT OPTION 


The main menu (this is the Spectrum version) gives you all these options 


280 IF SC= >10 THEN SC = 0:GOSUB 
840: PRINT “SBBBBB” 

290 IF Cl =400 OR VAL(D$(4,C1))=0 
THEN 310 
300 GOTO 260 

310 Cl = 0: FOR Z=1 TO8:N(Z) = 0: 
NEXT:FR = 0 

320 Cl = Cl + 1 :IF Cl = > 400 OR VAL(D$ 
(4,C1)) = 0 THEN RETURN 
330 IF VAL(D$(4,C1 )) = VAL(QQ$) 

THEN N(VAL(QQ$)) = N(VAL(QQ$)) + 
VAL(D$(3,C1)) 

340 IF VAL(D$(4,C1 )) = 8 AND VAL 
(QQ$) = 8 THEN320 

350 IF VAL(D$(4,C1 )) < > 8 THEN FR = 

FR + VAL(D$(3,C1)) 

360 GOTO 320 

370 PRINT LEFT$(D$(1,C1) + 

“□□□□□□□□ □ □”,9)“Q]”; 

380 PRINT LEFT$(D$(2,C1) + 

“□□□□□□□□□□□□□□ 

390 W$ = D$(3,C1):TA = 9 
400 W = VAL( W$) : I F W - 1 NT( W) = 0 
THEN W$ = STR$(W) + “.00” 

410 IF MID$(W$,LEN(W$) — 1 ,1 ) = 
“.’’THEN W$ = W$ + “0” 

420 PRINT RIGHT$(“D □□□□□□ 

□ □□□□□□□'□” + W$,TA) 
430 RETURN 

440 PRINT “□ Q B B B B B B ' 

TAB(i3)“annnnn 

CATEGORYDDDDHU”: 

POKE 198,0 

450 FOR Z=1 TO 8: PRINT TAB(12)Z 


“:D”A$(Z):NEXT 

460 PRINT TAB(13)“H Han CENTER 
CHOICEDPD” 

470 GET K$:IF (VAL(K$) < 1 OR VAL 
(K$) >8) AND K$< >CHR$(13) THEN 
470 

480 IF K$ = CHR$(13) AND KK$ = “1” 

THEN 470 

490 PRINT “□”:QQ$ = K$:RETURN 
500 IF K$ = CHR$(13) THEN 
CO = CO— 1: GOTO 60 
510 CO = CO + 1:IF CO >400 THEN 
CO = 400: GOTO 60 
520 C1=CO:D$(1,C1) = “” 

530 PRINT C$< >“Y” THEN 

PRINT “PRESS RETURN IN THE 
DATE FIELD FOR MENU” 

540 INPUT “ H B B E3 □ □ ENTER 
DATEU”; D$(1,C1):IF D$(1,C1) = “” 
THEN K$ = CHR$(13):GOTO 500 
550 INPUT “HODDENTER ITEM[|”; 
D$(2,C1) 

560 INPUT “HQ ENTER AMOUNTJ1”; 
D$(3,C1):GOSUB 440:IF QQ$< > 
CHR$(13)THEN D$(4,C1) = QQ$ 

570 IF QQ$ = CHR$(1 3) THEN 60 
580 IF C$ = “Y” THEN QQ$ = D$(4,CQ): 

GOTO 200 
590 GOTO500 

600 PRINT “@”TAB(5)“QHBBBDO 
YOU WANT TO PRINTOUT? (Y/N)” 

610 GET K$:IF K$ = “Y” THEN PR$ = “Y”: 
RETURN 

620 IF K$ = “N” THEN PR$ = “N”:RETURN 
630 GOTO 600 


640 IF K$ = CHR$(13) THEN 60 

650 IF PR$ = “Y”THEN OPEN 4,4:CMD 4 

660 GOSUB 200:PRINT “Q 

il 

670 W$ = STR$(N(VAL(QQ$))) 

680 PRINT TAB(1 9)“TOTALD : Q 
TA=12:GOSUB 400 
690 PRINT “i| 

IF QQ$< >“8” THEN 720 
700 PRINT TAB(7)“HUTOTAL 
EXPENDITURED : Q £”;:TA = 1 2 
710 W$ = STR$(FR):GOSU B400: W$ = 
STR$(N(VAL(QQ$))-FR) 

720 IF QQ$ = “8” THEN PRINTTAB(17) 

“UH BALANCED : Q £”;:TA = 1 2: 
GOSUB 400 

730 IF PR$ = “Y” THEN PRINT# 4, 
CHR$(13):CLOSE4 

740 GOSUB940:K$ = “2”:POKE 198,0 
750 GETW$:IF W$ = “”THEN750 
760 IF W$ = CHR$(13) THEN 60 
770 IF PR$ = “Y” THEN GOSUB 440: 

GOTO 640 
780 GOTO120 

790 OPEN1,1,1,NM$:PRINT#1,CO:FOR 
Z=1 TO CO:FOR ZZ=1 TO 4: 

PRINT# 1,D$(ZZ,Z) 

800 NEXT ZZ,Z:CLOSE1:GOTO 60 
810 OPEN1 ,1 ,0,NM$:INPUT # 1 ,CO:FOR 
Z=1 TO CO:FOR ZZ=1 TO 4: 

INPUT# 1,D$(ZZ,Z) 

820 NEXT ZZ,Z:CLOSE1 :GOTO 60 
830 INPUT “□BH ENTER FILE 
NAMEU”;NM$:PRINT“Q”:RETURN 
840 PRINT TAB(11)“HB(B1 HIT KEY 
TO CONTINUE) ||”:POKE198,0: 

WAIT1 98,1 :PRINT“@ H BBBBB ^ 
850 FOR Z = 1 TO 1 4: PRINT “□ □ □ □ 
□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□ 

□ □ □ □ D”:NEXT:RETURN 

860 PRINT“QH(.) TO MOVE BACK (.) 

TO MOVE FORWARD 

□ □□□□□□□□ □ HSPACE 
BAR TO CHANGE” 

870 GET P$:IF P$ = “” THEN 870 
880 IF P$ = CHR$(13) THEN 60 
890 IF P$ = “D” THEN 530 
900 IF P$ = “.” THEN CQ=CQ+1: 

I FCQ > COTH ENCQ = CO 
910 IF P$ = “,” THEN CQ=CQ— 1: 

IFCQ< 1THENCQ= 1 
920 IF P$ = “,”ORP$ = “.’’THEN QQ$ = 
D$(4,CQ):GOTO200 
930 GOTO 870 

940 PRINT“QHHIT ANY KEY TO 
CONTINUED DDDDDDDD 
VIEWINGDDH PRESS RETURN FOR 
MAIN MENU” 

950 RETURN 






5 

■ 



■■■iiiiiiiui 


DEADLY ENEM1 
AND ALINS 


From Space Invaders to the latest 
arcade games, opponents that shoot 
back always add to the challenge. 
Here’s how to create them and put 
them into a complete game routine 


Games look much better if you use some of 
the high resolution graphics features of your 
machine, rather than just the ‘block’ charac- 
ters you’ve met in this course up till now. 
Programs using high resolution graphics will 
be more complex than ones using only key- 
board characters, but the results are certainly 
worth the extra trouble. 

Many arcade-type games rely on enemies, 
aliens or opponents who fire back instead of 
sitting placidly by while you annihilate them. 
So this time you’ll see a game called Space 
Station, suitable for all except the ZX81 and 
Vic 20, which will teach you how to program 
lines to move an ‘alien’ round the screen 
randomly, and also fire missiles at a target — 
the space station. 

The player has four shields which he can 
use to ward off the marauding alien’s missiles. 
You can’t keep the shields up all the time, 
though, because there’s only a limited amount 
of fuel to power the shields. 

To make the game more difficult, not only 
is the program designed to move the alien 
randomly, but the alien may be made to 
disappear into hyperspace and reappear 
somewhere entirely different. 

As it stands, the game isn’t really 
complete — no timing or scoring has been 
added. But this is easily remedied using the 
methods given on pages 97 to 103. 

Although the alien is like those in commer- 
cial games, the space station is only an outline. 
If you want to spend an interesting half hour, 
you can redesign it using user defined 
graphics as described on page 38 — or, for 
Commodore 64 owners, sprites as described on 
page 151. You should, however, keep within 
the area used by our space station. Otherwise it 
could overlap the defensive shields, necessitat- 
ing much revision. 


H2E9 


Type in and RUN the first part of the game: 


10 PCLEAR4:PM0DE4,1:PCLS 

15 SCREEN 1,1 

20 DIM AL(6),BL(6),B0(4) 

30 DEFFNZ(X) = SGN(X)*SQR(V*V*X*X/ 
((1 27 - AX)* (1 27 - AX) + (95 - AY) * 
(95 -AY))) 



144 
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■ 

THE IDEA OF THE ALIEN 

■ 

SHIELDS YOUR— PROTECTION 


GAME ROUTINE 

■ 

MISSILES— THE ELEMENT 

■ 

HOW TO DRAW THE GAME 


OF DANGER 


ELEMENTS ON THE SCREEN 

■ 

PLAYING THE GAME 

■ 

ADDING MOVEMENT 

■ 

CREATING AN ENDING 



40 LET PW = 250 

50 FORI = 0TO7:READA:POKE1 536 + 
l*32,A:NEXTI 

60 GET (0,0) — (7,7),AL,G 
65 GOTO 65 

250 DATA 24,1 26,90,1 26,1 26,1 95, 

129,129 

You’ll see the alien appear on the screen. 

The high resolution graphics are set up by 
Line 10. At this stage the screen is switched 
on by Line 15 so that you can see how the 
program works, but the line will be removed 
later on in the development of the complete 
alien game. 

The arrays into which the alien, the missile 
and a blank will be fed are DIMensioned by 
Line 20. Line 30 uses a keyword that you 
haven’t seen yet. DEFFN is short for ‘define 
function’. If you have a long mathematical 
expression it saves you having to type it out in 
full several times in a program. The math- 
ematical expression in Line 30 is now called 
FNZ and is used later on in the program to 
move the missile diagonally across the screen. 
Line 40 sets the end of the fuel gauge. 

Line 50 draws the alien on the screen by 
READing the DATA in Line 250 and POKEing it 
on to the top left of the screen. The alien is 
‘remembered’ by the Dragon by the GET in 
Line 60. The alien is now in array AL. 

Line 65 is also a temporary line. All it does 
is keep the screen switched on. And once 
again it will be removed later on, when the 
rest of the game is added to the program. 


DRAWING THE MISSILE 


Next add these lines and RUN the program. 

70 FOR J = 0 TO 4:READ A:P0KE 
1536 + J*32,A:NEXTJ 
80 GET(0,0) — (4,4),B0,G 
85 GOTO 85 

260 DATA 32,1 12,248,1 12,32 

The missile that will be fired by the alien is 
POKEd into the top left of the screen. It 
doesn’t matter that the missile is being POKEd 
on top of the alien, nor that there are still some 
bits of alien left, because Line 80 only GETs 
the area occupied by the missile and not the 
surroundings. 


DRAWING THE SPACE STATION 


Remove Line 85 by typing 85 1 ENTER I and add 
these lines. Then RUN the program. 

90 LET AX= RND(248) — 1 : LET AY = 
RND(178) + 5 
100 POLS 

110 CIRCLE(127,95),12,5:DRAW 
“BM1 27,95;C5S48NUNLNDNR” 

115 GOTO 115 

A random start position for the alien is chosen 
by Line 90. Line 100 clears the screen before 
Line 1 10 draws the space station. The DRAW 
command at the end of the line draws a cross 
on the space station. DRAW will have to wait 
until later for a full explanation, but can be 
thought of as a succession of LINE statements, 
as already explained in BASIC Programming. 


DRAWING THE FUEL GAUGE 


Remove Line 115 in the same way as you 
removed Lines 65 and 85. Add these lines and 
more graphic detail will appear on the screen: 

1 20 DRAW“BM1 31 ,87;S4D5BD6BLR3D2L3 
D2R3BL1 2R3U2NL3U2NL3BU6U5G4R3” 

1 30 DRAW“BM5,1 ;L4D2NR4D2BE4BR2D4 
R3U4BR5L3D2NR3D2R3BE4D4R3” 

140 LINE(25,1 ) — (PW,5),PSET,BF 
145 GOTO 145 


Line 120 draws numbers on the space station 
which correspond to the shield numbers. 
Line 130 displays the word FUEL. Unfortu- 
nately, the Dragon cannot display ordinary 
keyboard characters on the high resolution 
screen, so letters or numbers must be DRAWn. 

The full fuel gauge for the shields is 
displayed by Line 140. The line uses a quick 
method for drawing rectangles. You use LINE 
to draw a line from the top left corner to the 
bottom right corner. PSET tells the Dragon to 
draw the line in buff in this mode and colour 
set. BF is short for ‘box fill’ and fills the 
rectangle with the colour used for the original 
line. If you want to draw an empty rectangle 
use B instead of BF. 

The high resolution graphics for the game 
are now complete. The rest of the program is 
concerned with moving the alien and the 
missile and activating the shields. 
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MOVING THE ALIEN 


There are three subroutines to add to the 
program. This one is concerned with moving 
the alien. Type it in but don’t RUN it because 
nothing will happen yet. 


1000 LETLX = AX: LETLY = AY 
1010 IF RND(10) = 1 THEN LETAX = RND 
(248) — 1 :LETAY = RND(1 78) -f 5 
1 020 LETAX = AX+ RND(15) — 8:LETAY = 
AY+ RND(1 5) — 8 

1030 IF AX > 103 AND AX <144 AND 
AY >71 AND AY < 1 1 2 THEN LETAX = LX: 
LETAY = LY 

1040 I FAX < 0 THEN LETAX = -AX 
1 050 I FAX > 248 THEN LETAX = 497 - AX 
1060 I FAY < 6 THEN LETAY = 12 — AY 
1070 I FAY >184 THEN LETAY = 369 - AY 
1080 PUT(LX,LY) — (LX + 7,LY + 7), 

BL,PSET 

1 090 PUT(AX,AY) - (AX + 7, AY + 7), 

AL,PSET 
1100 RETURN- 


the alien being displayed off the screen. 

The alien is blanked out in line 1080 by 
PUTing a series of blank graphics over its last 
position, and the alien is PUT into its new 
position by Line 1090. 

Line 1100 RETURNS the program to Line 
160 — which, incidentally, you haven’t yet 
entered. 


Line 2050 starts the missile’s flight from 
the alien’s position. And Line 2060 PUTs the 
missile on the screen before Line 2070 makes 
AF = 1 , which tells the Dragon that a missile 
has been fired. The subroutine ends. 

The final subroutine is from Lines 3000 to 
3070. Type in the lines, but again RUNning 
will have no effect. 


FIRING THE MISSILE 


The next subroutine first decides whether to 
fire a missile, then sets up the missile’s 
position on the screen and finally checks 
which shield will block the missile. 


The alien is controlled somewhat like the 
missile and missile base movement covered on 
pages 54 to 59. Line 1000 sets the last 
position coordinates equal to the current 
position coordinates before the alien is 
moved. 

So that the alien may suddenly shift 
around the screen, Line 1010 chooses a 
random number. If the random number is 1, 
then the alien jumps to a new screen position. 
If the random number isn’t 1 a new position 
for the alien is chosen between — 7 and + 7 
pixels away in the x direction (left to right) 
and the same range of distances in the y 
direction (up and down) — see Line 1020. 

Line 1030 stops the alien overrunning the 
space station, while Lines 1040 to 1070 stop 


2000 IFRND(7) < > 1 THENRETURN 
2010 V=RND(8) + 5:DX= FNZ(127 — AX): 
DY = FNZ(95 — AY) 

2020 IF DX< =0 AND DY> =0 THEN 
LETMA = 1:G0T0 2050 
2030 IF DX< =0 AND DY< =0 THEN 
LETMA = 2:G0T0 2050 
2040 IF DX> =0 AND DY< =0 THEN 
LETMA = 3 ELSE LETMA = 4 
2050 LETMX sb AX: LETM Y = AY 
2060 PUT(MX,MY) — (MX + 4, MY + 4), 

BO, OR 

2070 LETAF = 1 :RETURN 


3000 PUT(MX,MY) — (MX 4- 4, MY + 4), 
BL,PSET 

301 0 LETMX = MX + DX: LETM Y = M Y + DY 
3020 IFMX > 1 1 0ANDMX < 1 40ANDMY 
>79AND MY <108 THEN GOTO 3050 
3030 PUT(MX,MY) - (MX -b 4, MY + 4), BO, OR 
3040 RETURN 

3050 IF SH(MA) = 0 THEN GOTO 3070 
3060 LETAF = 0:RETURN 
3070 CLS:PRINT@256, “BANG.. YOUR 
SHIELDS WERE DOWN !” 


Line 2000 decides whether to fire a missile. 
There’s a six-to-one chance that it will, but 
the program can’t fire if a missile is already on 
the screen. If a missile isn’t to be fired then 
the subroutine ends. 

Line 2010 sets how large the steps taken by 
the missile will be — you could, perhaps, think 
of V as velocity, or speed. V is plugged into 


The missile is blanked out by Line 3000. The 
missile’s new position is worked out by Line 
3010. Line 3020 checks if the missile has 
reached the shields. If it has then the program 
jumps to Line 3050 where there is a check to 
see if the right shield is up. If there is no 
blocking shield the program finishes with 
the message BANG . . . YOUR SHIELDS ^ 



WERE DOWN! 

If the missile hasn’t yet reached the shields, 
Line 3050 PUTs it on the screen at the new 
position. Line 3040 ends the subroutine. 
This completes the program: 


FNZ— defined in Line 30— in the last part of 
the line so that the new position of the missile 
can be worked out. 

Lines 2020 to 2040 find out which quarter 
of the screen the missile is in and also which 
shield is needed to block the missile — MA is 
the missile angle, if you like. 


150 SCREEN 1,1 

160 IFAF = 0 THEN GOSUB 2000 
ELSEGOSUB3000 
170 GOSUB1000 
180 FOR J = 1 TO 4 
190 LETPE= PEEK(338 + J):IF PW<25 
THEN LETPE = 255 
200 IF 255 -PE <> SH(J) THEN 
LETSH(J) = 1 - SH(J):CIRCLE(1 27,95), 
16,5*SH(J),1,(J + 2)/4,(J + 3)/4 
210 IFSH(J) = 1 THEN LETPW=PW-2 
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220 NEXT 

230 LINE(PW,1 ) - (PW + 2,5),PRESET,BF 
240 GOTO160 


much easier to see what is going on if the game 
is split up in this way. 


On the Tandy, replace Line 200 with: 
200 IF (255 — PE)/1 6 < >SH(J)THEN 


DRAWING THE SCREEN DISPLAY 


Type in and RUN these first few lines to see 
what the setting for the game looks like: 


LETSH(J) = 1 - SH(J):CIRCLE(1 27,95), 
1 6,5*SH(J),1 (J + 2)/4,(J + 3)/4 


Before you RUN the program remove 
Lines 15 and 145. Now that you’ve removed 
Line 145 you won’t see the screen display 
being built up. There’ll be a short pause after 
the program has been RUN before a complete 
screen display appears. 


10MODE1 
20 LETX= RND(1100) + 32:LETY = RND 
(950) + 32 



exactly the right place — notice how Line 110 
moves the cursor to a very precise position 
before PRINTing the numbers. 


CREATING THE ACTION 


The game itself is only 7 lines long! Here it is: 


The screen is now switched on by Line 
150. Line 160 checks if a missile has been 
fired. If AF = 0 no missile has been fired, and 
the program jumps to the subroutine con- 
cerned with firing a missile — the one starting 
at Line 2000 — or else the program jumps to 
the subroutine which moves the missile — the 
one starting at Line 3000. Next, the alien is 
moved. Line 170 makes the program jump to 
the subroutine starting at Line 1000. 

The section of program from Lines 180 to 
220 is concerned with activating the shields. 
Line 190 checks which key is being pressed. 
If the key is a number from 1 to 4 Line 2000 
will draw the shield, and if any of the shields 
are activated Line 210 subtracts from the fuel. 

Line 230 draws a black rectangle at the end 
of the fuel display, giving the impression that 
the fuel supply is going down as PW decreases. 

Finally, Line 240 starts the process again. 


LETARMED = 1 :LETSH = 1 :LETF = 1 280 
40 DIM C(4) 

50 *FX11,1 

60 VDU23, 224, 60, 126, 21 9, 21 9, 126, 
60,90,153 

65 VDU23,225,32,78,89,1 24,62,1 54, 

114,4 

70 MOVE0,1 000: M0VE1 280,1 000: 

PLOT85,0,1 024: PLOT85,1 280,1 024 
80 PRINT U FUEL”:VDU5 
90 MOVE560,51 2:DRAW640,592: 
DRAW720,51 2: DRAW640,432: 
DRAW560,512 

100 MOVE640,592: DRAW640,432: 

MOVE560,51 2: DRAW720,51 2 
110MOVE592,552:PRINT k ‘4D1”: 
MOVE592,504:PRINT “3D2” 


120 REPEAT 
130 PROCALIEN 
140 PROCSHIELD 
150 PR0CSH00T 
160 PROCFUEL 
170 UNTIL FALSE 
180 END 


On the Acorn machines the space station 
game is divided into two main sections. The 
first part draws the screen display and does all 
the Tiddly bits’ like setting the initial value of 
the variables and defining the UDG charac- 
ters. The second part of the program deals 
with the action part of the game, such as 
moving the alien and firing the missile. It is 


The first few lines mostly just set the vari- 
ables. X and Y are the start position of the 
alien; ARMED = 1 means the alien starts with a 
missile (ARMED = 0 means no missile); SH = 1 
means that the shields are operational (again, 
0 means that they are not); and F is the fuel 
level. DIM C(4) dimensions the array for the 
colour of the four shields and * FX1 1 ,1 speeds 
up the auto-repeat on the keys — essential for 
any game that relies on keyboard input. 

Lines 60 and 65 define the UDG charac- 
ters for the alien and the missile, although 
they are not actually PRINTed out until later in 
the program. 

The next lines draw the display. Lines 70 
and 80 draw the fuel gauge and Lines 90 to 
110 draw the space station and number its 
sectors 1 to 4. The VDU 5 in Line 80 causes 
text to be PRINTed at the graphics cursor. This 
makes it easier to PRINT the sector numbers in 


Of course, it takes rather more lines than this 
to define each procedure, but you can see that 
the structure of the game is very simple 
indeed. 

Lines 100 and 150 just keep looping 
through the list of procedures (UNTIL FALSE 
means ‘carry on for ever’). PROCALIEN moves 
the alien, PROCSHIELD activates the shields 
around the space station, PR0CSH00T re- 
leases the missiles and detects if you are 
protected by the correct shield, and 
PROCFUEL measures how much fuel you have 
left. 

If you try to RUN the program now you will 
get a ‘No such FN/PROC’ error as none of the 
procedures have been defined. That is the 
next task. 


MOVING THE ALIEN 


Here are the lines to move the alien: 


190 DEF PROCALIEN 
200 GCOL0,0:MOVEX,Y:VDU224 
210 IF RND(200) = 123 THEN X = 640: 
Y=512:GOTO 280 

220 LETDX= RND(40) — 20:LETDY = RND 
(40) -20 

230 IF X > 1 200 THEN DX = - ABS(DX) 
240 IF X< 10 THEN DX = ABS(DX) 

250 IF Y < 50 THEN DY = ABS(DY) 

260 IF Y > 950 THEN DY= — ABS(DY) 
270 LETX = X+DX: LET Y = Y + DY 
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FIRING THE MISSILES 


also 


each shield to 0— ie, black (an activated shield 
is white). Line 330 checks if your shields are 
operational— if SH = 0 it means your fuel has 
run out and you cannot use the shields. 

The next few lines detect the keypress and 
turn the colour of the relevant shield to colour 
3 (ie, white). Line 410 reduces your fuel by 2 
units each time a shield is used — so turn them 
on only when you really need to! 

Finally, Line 420 draws the four shields. It 
draws all four but you see only the white one; 
the other three are still black and therefore 
invisible. This is a simple way of displaying 
the correct shield without a lot of extra and 
complicated program lines. But note that if 
SH in Line 330 were 0 then all four shields 
would be black. 


PR0CSH00T gives the alien a 1 in 30 chance of 


280 IF X>500 AND X<750 AND Y>400 
ANDY <650 THEN X = RND(1 250): 
Y=RND(990) + 30:GOTO280 
290 GCOL0,2:MOVEX,Y:VDU224 
300 ENDPROC 

Try RUNning the program now. It will work if 
you put in a temporary extra line: 

135 GOTO170 

But remember to delete this line once you 
have seen what the proced ure does. Delete it 
by typing 135 followed by I RETURN | . 

The alien moves around randomly, taking 
very short steps most of the time but occa- 
sionally jumping to a different part of the 
screen. 

Line 220 works out the small random steps 
DX and DY, and Line 210 controls the big 
jumps across the screen. It only jumps if 
RND(200) equals 123. The number 123 is a 
dummy number and it could, in fact, be any 
number between 1 and 200; it just means 
there is a 1 in 200 chance of it turning up. You 
can change the numbers to something smaller 
if you want the alien to jump about more 
often— RND(1 00) = 50 for example. 

Lines 230 to 260 check if the alien is 
nearing the edge of the screen and if it is they 
make sure that DX and DY are either added on 
or taken away to bring it back towards the 
centre. 

Line 270 adds on the small step, Line 280 
makes it jump to a new position if it gets too 


near the space station, and Line 290 chooses 
yellow graphics and plots the alien. (VDU224 
means PRINT CHR$224 which is the code 
number given to the alien UDG.) 

The only line that hasn’t been described so 
far is Line 200. This simply blanks out the 
previous position of the alien. 


ACTIVATING THE SHIELDS 


PROCSHIELD is the next procedure on the list: 

310 DEF PROCSHIELD 
320 LETC(1 ) = 0:LETC(2) = 0:LETC(3) = 0: 
LETC(4) = 0 

330 IF SH = 0 THEN GOTO 420 
340 LETA$ = INKEY$(1) 

350 -FX15.1 

360 IF A$ = “” THEN GOTO 420 
370 IF A$ = “1” THEN C(1) = 3 
380 IF A$ = “2” THEN C(2) = 3 
390 IF AS = “3” THEN C(3) = 3 
400 IF AS = “4” THEN C(4) = 3 
410 LETF = F — 2 

420 GCOL 0,C(1 ):MOVE640,608:DRAW736, 

51 2:GC0L 0,C(2):DRAW640,416:GCOL 
0,C(3): DRAW544.51 2:GC0L 0,C(4): 
DRAW640,608 
430 ENDPROC 

This displays the shield which you use to 
protect your space station from the missiles. 
You can protect only one sector at a time and 
you activate the shields by pressing one of the 
keys 1 to 4. 

Line 320 starts by setting the colour of 


firing a missile at the space station and it ; 
checks whether a missile gets through your 
defences. Enter these lines now: 

440 DEF PR0CSH00T 
450 IF ARMED = 0 THEN GOTO 540 
460 IF RND(30) <>13 THEN GOTO 590 
470 LETARMED = 0:LETFX= (624 — X)/1 5: 

LETFY = (528 — Y)/1 5 
480 LETG = X+ FX:LETH = Y+ FY 
490 GCOL3,2:MOVEG,H:VDU225 
500 IF G > 624 AND H > 528 THEN S = 1 
510 IF G>624 AND H < 528 THEN S = 2 
520 IF G < 624 AND H< 528 THEN S = 3 
530 IF G <624 AND H > 528 THEN S=4 
540 GCOL3,2:MOVEG,H:VDU225 
550 LETG = G + FX:LETH = H + FY 
560 IF N0T(G > 584 AND G < 684 AND 
H>480 AND H < 580) THEN MOVE 
G,H: VDU225:ENDPROC 
570 LETARMED = 1 
580 IF C(S) = 0 THEN PROCFINISH 
590 ENDPROC 

Line 450 checks if the alien is armed. If 
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ARMED equals 0 it means a missile has already 
been released so this line jumps to a later part 
of the program. Line 460 jumps to the end of 
the procedure unless RND(30) = 13. The 13 is 
a dummy number again like the 123 in Line 
210. It gives the alien a 1 in 30 chance of 
firing a missile. 

Assuming the conditions in Line 450 and 
460 are not true then the computer eventually 
gets to Line 470. This immediately fires a 
missile and then calculates FX and FY which is 
how far the missile moves. These are worked 
out so that the missile always heads towards 
the space station. Line 480 adds this to the 
position of the alien to give the position of the 
missile — G and H are the missile’s coordi- 
nates. Then Line 490 plots a yellow missile. 

The next four lines work out which sector 
the missile is in and they set the variable S to 
the number of the sector. 

Line 540 blanks out the old position of the 
missile, Line 550 adds on another step and 
Line 560 PRINTs it at the new position if it is 
not near to the space station. 

The program gets to Line 570 only when 
the missile gets to the base. The alien is 
immediately armed again (ARMED = 1), and 
then it checks the colour of the shield. If the 
shield was down— ie, the colour was black — 
then the game ends by calling PROCFINISH. 
Otherwise the game carries on as normal. 


Line 630 rubs out the fuel gauge to show how 
little you have left. Remember your fuel 
decreases more quickly when your shields are 
up — look at Line 410 again. 

When the fuel level drops below 131, Line 
640 turns off your shields by setting SH to 0. 


ENDING THE GAME 


If a bomb gets through your defences then 
you’ve lost the game. This is done with 
PROCFINISH: 

660 DEF PROCFINISH 
665 FOR D = 1 TO 2000: NEXT 
670 VDU4:CLS:PRINT"“BANG! YOUR 
SHIELDS WERE DOWN” 

680 * FX1 2,0 

685 FOR D = 1 TO 2000: NEXT 
690 * FX1 5,1 
700 END 

All it does is to tell you you’re dead and reset 
various things that were set earlier. The VDU 4 
resets the VDU 5 statement. *FX1 2,0 resets the 
auto-repeat on the keys to normal, and 
# FX1 5,1 empties the keyboard buffer that may 
be filled with lots of Is, 2s, 3s and 4s that you 
pressed for the shields. In short, it ‘tidies 
things up’ before finally ending the game. 


The Spectrum program uses several new 
features not dealt with in earlier chapters, and 
will therefore repay a bit of study — and 
experimenting, if you’re feeling bold. 

As usual, you can check as you go that 
everything works if you enter the lines in 
stages. This first group will define the alien 
and, when RUN, will PRINT him on the screen: 



210 LET ay = INT (RND # 21) + 1 
220 IF ax> 11 AND ax <21 AND ay >6 
AND ay <16 THEN GOTO 200 
490 PRINT INK 4;AT ay, ax;CHR$ 144 
800 DATA 60,126,219,219,126,60,90,153, 
0,0,24,60,60,24,0,0 

Lines 20 and 800 define the alien and his 
missile (which is not yet visible). They use the 
technique that was explained fully in Machine 
Code 2. (FOR n = USR “a” TO USR “b” +7 . . . 
POKE n,a means the same thing as FOR n = 0 to 
15... POKE USR “a” + n,a.) 

Lines 200 and 210 start the alien off at a 
random position on the screen, and Line 490 
PRINTs him. (The PRINT CHR$ 144 in this line 
means the same as the PRINT < graphics “a” > 
in the earlier article.) 

Line 220 looks odd at this stage but, as 
you’ll see as the program progresses, is the 
means of preventing the alien popping up in 
the middle of your space station. 

For now, you may feel like omitting Line 
10, because having your program listing in 
yellow on a black screen makes it harder to 
read. If you do this, you must remember to 
reinstate it later, or Line 640 (explained 
below) will not work. 


BUILDING THE SPACE STATION 


These few lines draw the space station: 

110 PRINT AT 10,15;“4D1”;AT 
12,15;“3D2” 

120 PLOT 132,107: DRAW 25,-25: 

DRAW - 25,-25: DRAW -25,25: 

DRAW 25 25 

130 PLOT 107,82: DRAW 50,0: 

PLOT 132,57: DRAW 0,50 

As it stands, the station is pretty primitive. If 
you wish to design and enter a proper one, 
you’ll need only two program additions: 

• An extra line similar to Line 20, but 
starting with USR “c” and continuing for as 
many letters of the alphabet as the size of your 
space station dictates. 

• A long, long set of DATA in one or more 
extra lines at the end of the program. 


USING UP THE FUEL 


PROCFUEL comes next, so type in these lines: 

600 DEF PROCFUEL 
610 LETF = F — .75 
620 IF SH = 0 THEN GOTO 650 
630 GCOL0,0:MOVE F+ 10,1000: MOVE 
F + 10, 1024: PLOT 85,F,1000: 

PLOT 85, F, 1024 
640 IF F < 1 31 THEN SH = 0 
650 ENDPROC 

This procedure decreases your fuel, and in 


10 BORDER 0: PAPER 0: INK 6: 

BRIGHT 1: CLS 
20 FOR n = USR “a” TO USR “b”- 
READ a: POKE n,a: NEXT n 
200 LET ax = INT (RND*32) 
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PRINTING THE MISSILE 


The next job is to PRINT the alien’s missile, 
and plot its path towards the space station: 

150 LET mf = 0 

300 IF mf=1 THEN GOTO 400 
310 IF RND< .9 THEN GOTO 420 
320 LET mf = 1: LET my = ay: LET 
mx = ax: LET fy = 1 1 — my: LET 
fx = 1 6 — mx 

330 LET b = 1 : IF ABS fy > ABS fx 
THEN LET b = 2 

340 IF b = 1 THEN LET sx = SGN fx: 

LET sy = SGN fy*ABS (fy/fx) 

350 IF b = 2 THEN LET sy=SGN fy: 

LET sx = SGN fx*ABS (fx/fy) 

400 PRINT AT my,mx;“D”: LET 
my = my + sy: LET mx = mx-f sx: 

PRINT INK 5; AT my,mx;CHR$ 145: IF 
my >10 AND my <12 AND mx>15 AND 
mx<17 THEN GOTO 700 
620 IF RND > .9 THEN PRINT AT ay, ax; 

GOTO 200 

630 IF mf = 0 THEN GOTO 300 
650 GOTO 300 

700 CLS : PRINT FLASH 1; PAPER 2;AT 
10,1;“ BANGIDYour shields were 
downO” 

This whole section, as you can see from Line 
650, is a loop that the computer traverses 
several times when the alien appears. 

Line 150 sets the whole scene to zero: there 
is no missile coming at you — yet. 

Line 310 decides whether the alien will fire 
a missile at you during this particular loop of 
the program (there’s a 9 to 1 chance he will). 

If there is a missile, Line 320 sets its 
starting position (my, mx) at the obvious 
place — where the alien is (ax, ay). The middle 
bit of Line 400 PRINTs the missile, using 
CHRS145 instead of graphics “B”. 

The piece of program from the latter half of 
Line 320 to Line 400 is the crafty bit. What it 
does is to take the numbers for the middle of 
the space station, and the numbers represent- 
ing the alien’s current position, then subtract 
the latter from the former so that the missile 
‘homes in’ on the space station. 

Since some of the numbers involved are 
negative (for leftwards and downwards travel) 
and some positive (for rightwards and up- 
wards travel) you may find it difficult to 
follow this block if you do not understand 
ABS and SGN, which are covered in a later 
chapter. But here are some clues: 

The second half of Line 320 deducts the 
missile’s current position (my, mx) from the 
centre point of the space station (screen 
position 11, 16) and calls the resulting co- 
ordinates fy and fx. 


Lines 330 to 350, using ABS and SGN, add 
‘course correction’ factors (sy and sx) to fy and 
fx. Line 400 starts by unPRINTing the missile 
at its old position. Then it adds the sx and sy 
numbers to the old position, ready for the 
missile to be PRINTed again, one step closer. 


MOVING THE ALIEN 


Now that the alien has fired its missile it is 
time for him to move on. So add these lines: 

420 LET xx = ax: LET yy = ay: LET 
m = INT (RND*4) 

430 IF m = 0 AND ax <31 THEN LET 
xx = ax -hi 

440 IF m = 1 AND ax >0 THEN LET 
xx — ax — 1 

450 IF m = 2 AND ay <21 THEN LET 
yy=ay+1 

460 IF m = 3 AND ay >1 THEN LET 
yy = ay — 1 

470 IF xx > 1 1 AND xx < 21 AND yy > 6 
AND yy< 16 THEN GOTO 490 
480 PRINT AT ay,ax;“(H”: LET 
ax = xx: LET ay = yy 

First the Spectrum decides in which 
direction the alien will move. 

Once this is done by the ran- 
dom number in Line 420, the 
purpose of Lines 430 to 460 
becomes obvious — they are 
conventional movement lines. 

Line 470 keeps the alien 
out of the station. 

Line 400 (entered earlier) 
records a hit, directing the 
program to Line 700 if the 
missile hits the middle 
of the station. You may 
wonder why this line uses > 1 0 
and < 1 2, rather than the simpler 
11, and >15 and <17, rather than 16. 

But remember: although the computer can 
only PRINT the alien at a whole number, the 
numbers moving him are a series of decimalized 
fractions . So the chance of their actually 
becoming 11, 16 are remote. 

Finally, after about ten loops, Line 620 
blots the alien out at its final position on this 
loop and starts it again at Line 200. 


BUILDING THE SHIELDS 


These lines build the shields to ward off the 
approaching missile: 

140 PLOT INVERSE 1;1 32,1 22 
500 DIM a(4) 

510 LET a$ = INKEY$: IFa$ = “” THEN 
GOTO 600 

520 IF a$ = “1” THEN LET a(1) = 1 
530 IF a$ = “2” THEN LET a(2) = 1 


540 IF a$ = “3” THEN LET a(3) = 1 
550 IF a$ = “4” THEN LET a(4) = 1 
600 DRAW INK a(1)*4, INVERSE 1 -a(1), 
40,-40: DRAW INK a(2)*4, INVERSE 
1 — a(2), — 40, — 40: DRAW INK a(3)*4, 
INVERSE 1 — a(3), -40,40: DRAW INK 
a(4)*4, INVERSE 1 — a(4), 40, 40 
640 IF ATTR (my,mx) = 68 THEN PRINT 
AT my,mx;“D”: LET mf=0 

At first sight there is something odd about 
these lines, too. Four shields, but only one 
PLOT position to draw the lines from? In fact, 
the program uses ink the same colour as the 
background to draw a diamond. Only when 
you press one of the numbered keys 
does one section of the diamond 
change colour and appear 
on the screen. 

Meanwhile, 



Line 640 uses ATR 68— the number for the 

colour of the shields — to repel the missile by 
unPRINTing if it hits the shield. 


CLEANING UP 


The remaining lines are very easy to follow. 
They set the fuel supply to 100 and make it 
dwindle until, in the middle of Line 510 
(now amended) the shields become inactive. 
Remember to reinstate Line 10: 

100 PRINT PAPER 2; INK 6;AT 0,0; 

“□FUELD” 

160 LET fu = 1 00 

510 LET a$ = INKEYS: IFa$ = “” OR 
fu = 0 THEN GOTO 600 
560 LET fu=fu — 1 
610 PRINT PAPER 3; INK 7;AT 0,6; 
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The Commodore 64 version of the space 
station game uses sprites, information for 
which is contained within the large number of 
DATA statements near the beginning of the 
program, as explained on page 15. 

10 POKE 56,1 00:POKE 55,0:POKE 52, 
100:POKE 51 ,0:CLR 
20 DATA0, 254, 0,3, 57,1 28,7,255,1 92,0, 

1 6,0,1 6,56,1 6,56,84,56,1 24,1 46, 

124,131.255 



30 DATA1 30,1 44,56,1 8,1 84,1 6,58,1 44, 
16,18,131,255,130,254,84,254,252, 

56.126.0. 56 

40 DATA0,0,40,0,0,56,0,1 ,1 99,0,6,1 6, 

192.1.199.0. 0.124.0 

50 DATA0, 0,0,1 27,255,254,64,0,2,64, 
0,2,64,16,2,64,48,2,64,16,2,64, 
16,2,80,56 

60 DATA1 1 4,84,0,1 8,94,0,1 1 4,68,0,66, 
68,56,114,64,8,2,64,56,2,64,8, 

2,64 

70 DATA56,2,64,0,2,64,0,2,1 27,255, 

254.0. 0.0 

80 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
0,0,0,0,0,0,0,0,8,0,0,42,0,0,20, 
0,0,42,0,0 

90 DATA42, 0,0, 73, 0,0, 8, 0,0, 0,0, 0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
1 00 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
0,0,0,0,0,0,0,0,0,0,3,3,0,4,132, 
128,255 

1 1 0 DATA255,255,72,72,68,48,48,56,0, 


0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 

0,0, 0,0, 0,0 

1 20 DATA0,0,1 6,0,0,24,0,0,20,0,0,20, 
0,0,20,0,0,24,0,0,48,0,0,80,0,0, 
80,0,0,48,0 

1 30 DATA0, 24, 0,0, 20, 0,0, 20, 0,0, 24,0, 
0,48,0,0,80,0,0,80,0,0,80,0,0,48, 

0,0,16 

140 DAT A0, 0,1 6,0 

210 FOR ZZ = 0 TO 4: POKE 2040 + ZZ, 

200 + ZZ 

220 FOR Z=1T063:READ X:P0KE 12799 + 
(ZZ*64)+Z,X:NEXT Z,ZZ 
230 CLR:V = 53248:FU = 1 00: POKE 650,255: 
POKE 53280,0: POKE 53281,0: 

PRINT 

240 POKE V + 2,1 45: POKE V+3,120: 

POKE V + 23,250:POKE V + 29,250: 

POKE V+ 30,240 

250 XX = 31 + INT(RND(1 ) *21 0):YY = 60: 
DX=1:DY = 1:IF RND(1) > .50 THEN 
YY=180:DY= — DY 
260 PRINT “@"TAB(14)“HFUEL:Dn 

□□ilium ’ fu 

270 IFRND(I) > ,90THENXX= 31 +INT(RND 
(1)*210):YY = 60:DX=1:DY=1 
320 XX = XX + DX: IF XX= <30 OR 
XX =>245 THEN DX=-DX 
330 YY = YY + DY:IF YY = < 50 OR 
YY = > 1 90 THEN DY = — DY 
340 POKE V, XX: POKE V + 1,YY:IF F = 0 
THEN F=1:FX=XX:FY=YY 
350 IF F=1 THEN GOSUB410 
360 GET A$:S$ = “”:SH = 0 
370 IF A$ = “4” OR A$ = “2” THEN SH = 1 : 

POKE 2043,204:S$ = A$ 

380 IF A$ = “1 ” OR A$ = “3” THEN SH = 1 : 

POKE 2043,203:S$ = A$ 

390 IF SH = 1 THEN 470 
400 POKE V+21,247:GOTO 260 
410 IF FX > 1 53 THEN FX = FX — 5 
420 IF FX < 1 53 THEN FX=FX + 5 
430 IF FY < 1 35 THEN FY = FY + 5 
440 IF FY > 1 35 THEN FY = FY — 5 
450 POKE V+4,FX:P0KE V+5,FY:IF PEEK 
(V + 30) = 246 THEN 550 
460 RETURN 

470 IF S$ = “4” THENL1 =118:L2 = 120 
480 IF S$ = “2” THENL1 = 1 75:L2 = 1 20 
490 IF S$ = “1” THENL1 = 1 45:L2 = 95 
500 If S$ = “3” THENL1 = 1 45:L2 = 1 45 
510 POKE V + 6,L1:POKE V + 7,L2: 

FU = FU — 1 :P0KE V+21 ,255: 

IF FU<0THEN 540 

520 IF PEEK(V+30) = 252 THEN F = 0: 

GOTO 240 
530 GOTO 260 

540 PRINT TAB(4)“B^ YOU HAVE RUN 
OUT OF FUEL !”:G0T0 560 
550 PRINT TAB(11)“H ^YOU’VE BEEN 
HIT !” 


560 FOR ZZ=1TO10:FOR T=1TO100: 

NEXT: POKE V+21 ,247: FOR T=1TO100: 

NEXT: POKE V+ 21,0 

570 NEXT:PRINT “□”TAB(12)“HHHH 

SHMHMSMHaJ SHIT 

SPACE BAR” 

580 GET X$ : I FX $< >“□” THEN 580 
590 RUN 230 

The first line of the program reserves some 
space for the sprite in the Commodore’s 
memory, so that the BASIC program you use 
to move and operate the sprite cannot corrupt 
the sprite program itself. 

Lines 20 to 140 contain the sprite inform- 
ation for the space station, shields, missiles 
and alien. Lines 210 and 220 set the sprite 
pointers and put the sprite DATA into memory. 
Each sprite occupies 64 bytes (3 times 21 , plus 
one extra) and there are five of them — this 
explains the significance of these values in 
these two program lines. 

The next two lines initialize the computer, 
setting the variables, the various sprite po- 
sitions, auto-key repeat, and colours. 

The program continues in Line 250 by 
creating a random position for the alien sprite, 
appearing along one line at the top or one line 
at the bottom depending on the value ob- 
tained by the RND function. 

The program is seen to start in Line 260 
with the screen display off, to begin with, the 
fuel remaining and the alien. This dispatches 
a missile and then moves off. Lines 360-400 
activate the space station shields depending 
on which of the keys 1, 2, 3 and 4 is being 
pressed. If any of the shields is on, the 
condition in Line 390 is satisfied and the 
program jumps to the routine in Lines 
470—530 which controls the location of the 
relevant shield sprite. 

All the time the missile is homing in on its 
target, in a routine spanning Lines 410-460. 
If the missile sprite succeeds in reaching the 
centre of the space station without 
interruption — in other words, if a sprite colli- 
sion is not detected in Line 520— the con- 
dition in Line 450 is satisfied. The game-end 
routine in Lines 540 onwards starts by dis- 
playing a message then flashes the screen 
display before offering you another go. 

Each time the screen is activated, the fuel 
counter — variable FU — is decreased. The em- 
bedded cursor-left controls of the fuel display 
PRINT statement in Line 260 backspaces the 
cursor, effectively wiping out the previous 
fuel figure before adding the new value of FU 
each time the program returns to this point. 
When the value of FU is less than 0, in Line 
510, a branch to the relevant part of the game- 
end routine is made. 
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Race track statistics, names and 
dates— handling records like these is 
where the computer excels. And one 
of the most effective tools for 
processing them is the array 



The next job is to assign values to each 
element. If, for example, the variables repre- 
sented the screen positions at which text or a 
graphic were to be PRINTed, the next line 
might look like this: 

20 LET A(0) = 0: LET A(1) = 2: 

LET A(2) = 10: LET A(3) = 20 


20 LET a(1 ) = 0: LET a(2) = 2: 
LET a(3) = 10: LET a(4) = 20 


20 LET A(1) = 0 
30 LET A(2) = 2 
40 LET A(3) = 10 
50 LET A(4) = 20 

So far, this represents no saving of time or 
memory space — in fact, the program is a bit 
longer than if you had used ordinary LET 
statements. But look what happens when you 
have values which are different each time the 
program is RUN: 


IE IE 

10 DIM A(3) 


BSBD 


Arrays are the computer programmer’s 
method of handling large amounts of closely- 
related information— for example, long lists 
of club members with their addresses and 
subscriptions, complex financial records, and 
even lists of characters, weapons or treasure 
for an adventure game. 

To store individually each piece of inform- 
ation in such a long list, you could enter a 
massive number of LET statements. But this 
would create a long program and a lot of 
typing. 

What the array does is to store the inform- 
ation in a far more compact form. Instead of 
having a different variable for each item of 
information, you use a common one — A, say. 
And to differentiate between each item, you 
merely use a figure (or sometimes letter) in 
brackets. So the first item is called A(1 ), the 
second A(2), the third A(3) and so on. 

Not only does the array make your storage 
system more compact, but it also allows you 
to change any item — a new telephone num- 
ber, for example — with an absolute minimum 


Before you can use an array, you have to tell 
the computer how big it will be, so that it can 
reserve enough space in its memory. This is 
done with the DIM (for ‘dimension’) state- 
ment, as in this line: 


10 DIM a(4) 


This tells the computer that this particular 
array will have four elements, or variables. On 
Acorn, Commodore, Dragon and Tandy ma- 
chines, they will be numbered from A(0) to 
A(3). On the Sinclairs which do not accept 
a(0), they will be numbered from a(1 ) to a(4). 

The number of elements you use can be 
almost as large as you like — thousands, 
maybe. You need not actually use all the 
elements you reserve, so it is usually wise to 
overestimate. But bear in mind that the 
memory space thus reserved will no longer be 
available for other variables, so do not overdo 
an ‘out of memory’ report. 


ASSIGNING THE VALUES 


SETTING UP AN ARRAY 
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IQ 


numbers of elements, the time saving is really 
worthwhile. Suppose, for example, you 


HANDLING NAMES 


10 DIM A(3) 

20 PRINT “What are the values?” 
30 INPUT A(0), A(1), A(2), A(3) 


10 DIM a(4) 

20 PRINT “What are the values?” 
30 INPUT a(1),a(2),a(3),a(4) 


wanted to enter a hundred numbers. This 
simple program would be all you’d need: 


[E EH 

10 DIM A(99) 

20 FOR N = 0 TO 99 
30 INPUT A(N) 

40 NEXT N 


LTH 


Q 


The type of array described so far lets you 
handle numbers only. If you want to handle 
names and numbers, you must set up two 
arrays: one for the names and the other for the 
numbers. The names array on three of our 
machines would look like this: 


E EH 

10 DIM A$(5) 




10 DIM A(4) 

20 PRINT “WHAT ARE THE VALUES” 
30 INPUT A(1) 

40 INPUT A(2) 

50 INPUT A(3) 

60 INPUT A(4) 


On the ZX81, type entirely in capitals. 


10 DIM a(1 00) 

20 FOR n = 1 TO 100 
30 INPUT a(n) 

40 NEXT n 


On the Spectrum, it is also necessary to 
specify the maximum length that a name can 
be. So if your largest name were to have 10 
characters, the names array would look 
this: 


Each time you RUN the program, the com- 
puter will ask what values each variable is to 
have this time. And all you need to do is to 
type a number (followed, of course, by I ENTER I 
or [RETURN! ) each time it asks. 

And when you have really large 













In each case, the computer has reserved 
memory space for six names or six labels. To 
set up the INPUT loop, type: 


BE BE 


20 FOR N = 0 TO 5 
30 INPUT A$(N) 

40 NEXT N 


l t _-< 


Q 



On the ZX81, type entirely in capitals. 


20 FOR n = 1 TO 6 
30 INPUT a$(n) 

40 NEXT n 


RUN the program and en ter each na me or 
letter, followed by 1 ENTER 1 or |RETURN| . Then 
verify it by adding the following line and 
reRUNning: 


KHSHH 

35 PRINT A$(N) 


LV 


Q 


On the ZX81, type this in capitals. 

35 PRINT a$(n) 

Even if the names are long, it is not difficult to 
type in six of them. And it is still quite quick, 
even if you have a hundred names. 

Suppose, for instance, you were carrying 
out a survey of a racing circuit and you wished 
to store the names of the corners and the 
number of crashes that ocurred at each one 
during a racing season. You might easily need 
to enter a couple of dozen corners. And other 
examples may require even more entries than 
this. But the principle is the same as in the 
following program to enter just six. This 
method gets the computer to READ a store of 
mam DATA and so cannot be used on the ZX81, 
I which does not have this facility: 


ISISBSaD 

10 DIM A$(5) 

20 FOR N = 0 TO 5 
30 READ A$(N) 

40 NEXT N 

50 DATA FIVE MILE, WELL PASS, BROOK 
HILL, PETERS ROAD, CROSSWAYS, 
ROWLANDS 


10 DIM a$(6,11) 

20 FOR n = 1 TO 6 
30 READ a$(n) 

40 NEXT n 

50 DATA “FIVE MILE”, “WELL PASS”, 
“BROOK HILL”, “PETERS ROAD”, 
“CROSSWAYS”, “ROWLANDS” 

The names are read from the DATA statements 
in Line 50 and stored into the array at Line 
10. So each time the program is RUN, the 
same names are entered automatically. If you 
had 100 junctions, you would change Line 10 
to DIM A$ (99) and Line 20 to FOR N = 0 TO 99 
(for Acorn, Dragon, Tandy or Commodore) or 
DIM a$(1 00,11) and FOR n = 1 TO 100 (for 
Spectrum). Then you would add the other 94 
junctions to the DATA statement. 

Next, you could set up an array to hold the 
numbers of accidents: 


lEiEHsao 

210 FOR N = 0 TO 5 
220 PRINT A$(N), A(N) 

230 NEXT N 


210 FOR n = 1 TO 6 
220 PRINT a$(n), a(n) 

230 NEXT n 

Lines 210 and 230 loop through the list, while 
line 220 PRINTs out the names and numbers 
stored in the arrays. If you find you’ve made a 
mistake then correct it now. 

When you come to analyse the results of 
the survey, you will want to answer questions 
such as ‘How many crashes were there in all?’ 
and ‘Which are the safest corners?’. The lines 
to find the total number of accidents might 
look like this: 


SS BE 


300 PRINT'D” 

31 0 LET TL = 0 
'320 FOR N = 0 TO 5 
330 LET TL=TL + A(N) 

340 NEXT N 

350 PRINT'TOTAL NUMBER OF 
ACCIDENTSD”;TL 


BEKHH 



60 DIM A(5) 

70 FOR N = 0 TO 5 
80 READ A(N) 

90 NEXT N 

100 DATA 0, 2, 5, 1,3, 6 


60 DIM a(6) 

70 FOR n = 1 TO 6 
80 READ a(n) 

90 NEXT n 

100 DATA 0,2, 5, 1,3, 6 





If you like, you can ignore the zero element of 
an array on the Acorn, Commodore, Dragon 
and Tandy. So in the last example you can 
write DIM A$(6) and then number the items 
from 1 to 6. It means A$(0) is empty, but it is 
more natural to count from 1 rather than 0. 


USING ARRAYS 


The computer now knows how many acci- 
dents occurred at each bend. But how can this 
information be manipulated? 

The first thing you might want the com- 
puter to do is PRINT a list of all the bends and 
number of accidents — if only to check that 
you have keyed them in correctly. Type in the 
following: 


300 CLS 
310 LET total = 0 
320 FOR N = 0 TO 5 
330 LET total = total + A(N) 
340 NEXT N 

350 PRINT “Total number of 
accidents: □”;total 



300 CLS 
310 LET TL=0 
320 FOR N = 0 TO 5 
330 LET TL=TL + A(N) 

340 NEXT N 

350 PRINT “TOTAL NUMBER OF 
ACCIDENTSD”;TL 













300 CLS 
310 LET total = 0 
320 FOR n = 1 TO 6 
330 LET total = total + a(n) 
340 NEXT n 

350 PRINT “Total number of 
accidents: □”;total 


ANALYSING INFORMATION 


Imagine how useful the few lines above would 
be if you had a road system with 100 or even 
1000 bends, instead of just six. 

And when you consider that the inform- 
ation in an array can not only be stored, but 
just as easily analysed, you’ll see why the 
arrav is such a powerful tool — in everything 
from household budgeting (see pages 136 to 
143) to international finance. For an example 
of such analysis, type in these extra lines. 


El ED 


400 FOR N= 0 TO 5 

410 IF A(N)>3 THEN PRINT A$(N),A(N) 

420 NEXT N 


400 FOR n = 1 TO 6 

410 IF a(n)>3 THEN PRINT a$(n),a(n) 

420 NEXT n 


These lines PRINT a list of corners at which 
more than three accidents have occurred. In 
our example of six corners, these are BROOK 
HILL and ROWLANDS. If you change the 
3 in Line 410 to 5 and RUN the program again, 
ROWLANDS is PRINTed. (Any number 
greater than 6, the largest value, would cause 
nothing to be PRINTed.) 

The information stored in the arrays could 
just as easily be a list of families in a town, 
together with statistics such as number of 
children, income bracket and number of cars. 
Once these have been entered, they can be 
sorted into groups. You can even ask the 
computer to find a single name — even if you 
can remember only the initial letter. To show 
how this would work add these lines to the 


program: 


IE BE 


IQ 


600 FOR N = 0 TO 5 
610 B$ = A$(N) 

620 IF LEFT$(B$,1) = “P” THEN PRINT B$ 
630 NEXT N 


600 FOR n = 1 TO 6 

620 IF a$(n,1 ) = “P” THEN PRINT a$(n) 

630 NEXT n 


Lines 600 and 630 set up the loop to look at 
each element of the array. As each name is 
read, Line 620 checks the first character and if 
it is a ‘P’ then the whole name is PRINTed. 

In this case, it is PETERS ROAD that 
is PRINTed because it is the only junction 
beginning with ‘P\ In a ‘list of families’ 
program, it could just as easily be all the 
Smiths, or everyone with more than one car. 
And with multi-dimensioned arrays, the sub- 
ject of the next article on arrays, you can 
cross-index too — for example, you can find the 
entry for everyone whose name starts with ‘A’, 
who lives at street number 21 and whose dog is 
an alsatian! 


ARRAYS FOR GAMES 


Adventure games are one case where the array 
really comes into its own. Invariably, an 
adventure includes a number of locations, or 
scenes that the player visits. At each location, 
instructions are PRINTed on the screen to guide 
the player through the game. All these loc- 
ations are related, so they are best stored in a 
string array — A$ followed by a number, for 
example A$(9). 

The routes the player chooses to each 
location, such as ‘north’, fit well into a second 
string array; the objects, such as ‘torch’ and 
‘key’, into a third; the verbs, such as ‘take’, 
‘kill’ and ‘dig’, into a fourth. 

At some locations, the player can collect 
objects, such as gold coins, which count 
towards the final score. These objects are 
stored in one numeric array — ‘A’ followed by 
a number, such as A(7)— and the number of 
objects the player is carrying in another. 

In essence, then, a text-only adventure 
consists of a number of arrays which are 
manipulated by the program. 

The development of adventure games 
needs a whole series of articles. This will be 
covered in Games Programming. But in the 
meantime, here is an example: 


10 LET G = 1 4 
20 DIM A$(G),A(G) 

30 FOR Z = 1 TOG 
40 READ A$(Z) 

50 LET A(Z) = Z 
60 NEXT Z 

70 FOR X = G TO 2 STEP -1 
80 LET Q=RND(X) 

90 LET T = A(X) : LET A(X) = A(Q): 

LET A(Q) = T 
100 NEXT X 

110 FOR T=1 TO G:PRINT “ROOMD”; 

T;“DHAS AD”;A$(AD(T)): NEXT T 
120 DATA ROPE, SWORD, SPANNER, 
KNIFE, GUN, KEY, TORCH, CAR, 

WHIP, WAND, BOMB, BOOK, MODEL 
SHIP, ROBOT 


BE 


10 LET G = 1 4: PRINT CHR$(147) 

20 DIM A$(G),A(G) 

30 FOR Z=1 TOG 
40 READ A$(Z) 

50 LET A(Z) = Z 
60 NEXT Z 

70 FOR X = G TO 2 STEP-1 
80 LET Q= INT( RND(1)*X) + 1 
90 LETT=A(X):LET A(X) = A(Q):LET A(Q)=T 
100 NEXT X 

110 FOR T=1 TO G:PRINT “ROOM”; 

T;“HASAD”;A$(A(T)):NEXTT 
120 DATA ROPE, SWORD, SPANNER, 

KNIFE, GUN, KEY, TORCH, CAR, 

WHIP, WAND, BOMB, BOOK 
130 DATA MODEL SHIP, ROBOT 



10 LET g = 14 

20 DIM a$(g,10): DIM a(g) 

30 FOR z=1 TOg 
40 READ a$(z) 

50 LET a(z)=z 
60 NEXT z 

70 FOR x=g TO 2 STEP -1 
80 LET q = INT (RND'x) + 1 
90 LET t=a(x): LET a(x) = a(q): 

LET a(q)=t 
100 NEXT x 

110 FOR t= 1 TOg: PRINT “RoomiU”; 

t;“DhasaD”;a$(a(t)): NEXT t 
120 DATA “rope”, “sword”, “spanner”, 

“knife”, “gun”, “key”, “torch”, 

“car”, “whip”, “wand”, “bomb”, 

“book”, “model ship”, “robot” 

Line 20 sets up a string array and a numeric 
array. Line 40 reads a list of objects, and Line 
50 labels rooms. Lines 70 to 100 assign an 
object randomly to each room, and Line 1 10 
PRINTs the result. 
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HANDLING HEX A- 
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DECIMAL A 


No sooner have you learnt to count 
on one finger than you have to learn 
to count on 16! But even if you 
don’t have sixteen fingers you will 
find handling hex much easier than 
coping with chains of 0s and Is 

Though deep in their circuits computers do 
all their arithmetic in binary, using a number 
system composed entirely of 0s and 1 s creates 
certain difficulties for human operators. 

Reasonably-sized numbers soon end up 
with more noughts than a doughnut factory. 
And long series of 0s and Is are not easy to key 
in. It is very easy to make a mistake and very 
difficult to spot one. 

The way round this is for the operator to 
use a number system with yet another base. 

Hexadecimal — or hex — numbers are num- 
bers to the base 16. These are close enough to 
decimal, or ten-based, numbers to make them 
relatively easy for a human to handle. 

Further, 16is2x2x2x2, which means 
that conversion between binary and hex is 
simple. Decimal 16 is 10 in hex and 10000 in 
binary. And every number from 0 to 15 is 
represented by a four-digit binary number. 

To use a number system with a base bigger 
than ten you have to define new digits. 

In hex, ten is represented by A, eleven by 
B, twelve by C, thirteen by D, fourteen by E 
and fifteen by F. 


BINARY-HEX CONVERSION 


To convert into hex the eight-bit binary 
numbers that home computers use is parti- 
cularly easy. You break the number into two 
four-digit strings. Then, as explained on 
pages 38 and 39, the first four digits translate 
directly into one hex digit, and the last four 
into another hex digit. 

Translating decimal into hex is more dif- 
ficult. To do this you divide the decimal 
number successively by 16. The remainders 
after each division give the hex digits 

For example, when you divide 1226 by 16 
you get 76 with 10 left over. 10 is A in hex. 76 
divided by 16 is 4 remainder 12. 12 is C in 
hex. And 4 divided by 16 is 0 remainder 4. So 
1226 in decimal is 4CA in hex. 
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The following program is quite long, but is 
worth keying in because it will help establish 
in your mind how this conversion works: 


20 CLS 

25 PLOT 140,0: DRAW 0,160 
30 PRINT INVERSE 1;AT 0,8;“ □ BIN, 

DEC, HEXIU” 

40 PRINT INVERSE 1 ;AT 4,2; 

“□□BiNARY:nnnnn” 

50 PRINT INVERSE 1;AT 9,2; 

“□ □DECIMALD □ □ □” 

60 PRINT AT 10,5;“ + □□□ + 
□□□+□□□+□□□+ 
□□□+□□□+” 

70 PRINT INVERSE 1;AT 17,2; 

“□□HEXADECIMAL:” 

80 PRINT AT 18,4;“+ □□ + 

□ □ + □□ = ” 

90 PRINT AT 18,20;“+ □□ + 

□ □ + □□=” 

100 LET no=0 
110 GOTO 150 

120 LET a$ = INKEYS: IFa$ = “” THEN 
GOTO 120 

130 IF a$ = “n” THEN LET no = no + 1: IF 
no =256 THEN LET no=0 
135 IF a$ = “b” THEN LET no=no-1: IF 
no= — 1 THEN LET no = 255 
140 IF a$ = “b” OR a$ = “n” THEN GOTO 
150 

145 INPUT “?”;no 

150 GOSUB170: GOSUB 250 

160 GOTO 120 

170 LET nu = no: LET c=128 

175 FOR x = 0 TO 7 

180 LET n = 0: IF nu> =c THEN LET n = 1 : 

LET nu = nu— c 
190 LET c = c/2 
200 PRINT AT 5,2 + 4*x;n 
210 IF n = 1 THEN PRINT AT 
10 2 + 4*xc*2 
220 IF n = 0 THEN PRINT AT 
10,2 + 4*x;“0nn” 

230 NEXT x 

235 PRINT AT 13,6;“DECIMAL 
TOTAL = □”;no;“n □” 

240 RETURN 

250 LET hi = INT (no/16): LET hh = hi 
260 LET lo = (no— hi*16): LET II = lo: 


IF lo>9 THEN LET lo = lo + 7 
265 IF hi >9 THEN LET hi = hi + 7 
270 LET hi = hi + 48: LET lo = lo + 48 
280 PRINT AT 18,14;CHR$ hi;AT 
18,30;CHR$ lo 
290 LET c = 8 
300 FOR x = 0 TO 3 
310 LET n = 0: IF hh> =c THEN LET 
n = c: LET hh = hh — c 
315 LET m = 0: IF ll> =c THEN LET 
m = c: LET 11 = 11 — c 
320 LET c = c/2 
330 PRINT ATI 8,2 + x*3;n;AT 
1 8,1 8 + x*3;m 
340 NEXT x 

400 PRINT AT 21 ,6;“HEX TOTAL = □”; 


Instant conversions 

The BBC B, Acorn Electron, Dragon and 
Tandy computers have inbuilt programs 
to do decimal-to-hex conversions. To get 
a hex number, all you need to do is: 


Type PRINT ~ , followed by th e decima l 
number you want. Then press [RETURN]. 

saa 

Type PRINT HEX$, followed in brackets 
by the decimal number you want 
converted — eg PRINT HEX$ (255)— then 
press IRETURNI . 

If, on the other hand, you want to 
enter hex numbers as part of a program 
(when entering DATA statements, for 
example), these machines will accept 
them quite happily. On the Acorn ma- 
chines, you must type & before the hex 
number; on the Dragon and Tandy, you 
must type &H before the number. The 
computers will then convert the hex into 
decimal for use during their subsequent 
calculations. 
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CHR$ hi;CHR$ lo 
500 RETURN 


20 CLS 

30 PRINT AT 0,9;“BIN, DEC, HEX” 

40 PRINT AT 4,4;“BINARY:” 

50 PRINT AT 9,4;“DECIMAL:” 

60 PRINT AT 10,5;“ + □□□ + □□□ 

+□□□+□□□+□□□ 

+ □□□ 

70 PRINT AT 17,4;“HEXADECIMAL:” 

80 PRINT AT 1 8,4;“ +□□ + □□ 

+ □□ = ” 

90 PRINTAT18,20;“ + mn + nn 
+ □□=” 

100 LET NO = 0 

110 GOTO 150 

120 LET A$ = INKEYS 

125 IF A$ = “” THEN GOTO 120 

130 IF AS < >“F” THEN GOTO 135 

131 LET NO = NO + 1 

132 IF NO = 256 THEN LET NO = 0 

135 IF A$< >“B” THEN GOTO 140 

136 LET NO = NOI 

137 IF NO= -1 THEN LET NO = 255 
140 IF A$ = “B” OR A$ = “F” THEN 

GOTO 150 
145 INPUT NO 
150 GOSUB 170 
155 GOSUB 250 
160 GOTO 120 

170 LET NU = NO 

171 LET C = 1 28 
175 FOR X = 0 TO 7 
180 LET N = 0 

185 IF NU> =C THEN LET N = 1 

186 IF NU> =C THEN LET NU = NU-C 
190 LET C= C/2 

200 PRINT AT 5,2 + 4*X;N 
21 0 IF N = 1 THEN PRINT AT 1 0,2 + 4*X; 
C*2 

220 IF N = 0 THEN PRINT AT 10,2 + 4*X; 

“0D □” 


230 NEXT X 

235 PRINT AT 1 3,6;“DECIMAL TOTAL 
= □”;NO;“D □” 

240 RETURN 

250 LET HI = INT(NO/16) 

255 LET HH = HI 

260 LET LO = {NO — (Hl*1 6)) 

261 LET LL=LO 
270 LET HI = HI + 28 

75 LET LO = LO + 28 
280 PRINT AT 18,14; CHR$ HI; 

AT 18,30; CHRS LO 
290 LET C = 8 
300 FOR X=0 TO 3 

31 0 LET N = 0 

311 IF HH> =C THEN LET N = C 

312 IF HH> =C THEN LET HH = HH — C 

31 5 LET M = 0 

316 IF LL> =C THEN LET M = C 

317 IF LL> =C THEN LET LL=LL— C 
320 LET C = C/2 

330 PRINT AT 1 8,2 + X*3;N;AT 18,18 + X*3;M 
340 NEXT X 

400 PRINT AT 21 ,6;“H EX TOTAL = 

CHRS HI; CHRS LO 
410 GOSUB 145 
500 RETURN 


10MODE6 

20 VDU23;8202;0;0;0; 

30 PRINTTAB(13,2)“BIN, DEC, HEX” 

40 PRINTTAB(13,3)STRING$ 

(13,CHR$(224)) 

50 PRINTTAB(5,1 2);“ + □□□ + □□□ + 

□□□□□+□□□+□□□+ 

□ □□ + □□□ = ”TAB(5,17j“ + 
□□□+□□□+□□= 
□□□□□□□+□□□+□□□ 
+ □□=” 

60 PRINTTAB(1 ,5)“Binary □ :”TAB(1 ,1 0) 
“Decimal □ :”TAB(1 ,1 5) 

“Hexadecimal n:”TAB(1 2,20) 

“Hex NumberD =” 

70 ?&70 = 0 

80 T = ?&70:PROCBIN:PROCDEC: 

PROCHEX 
90 *FX21,0 
95 G = GET 

1 00 IF G = 32 THENP&70 = ?&70 + 1 : 
GOTO80 

1 05 IF G = 66 THENP&70 = ?&70 - 1 : 

GOTO80 

110 PRINTTAB(0,23);:INPUT?&70: 
PRINTTAB(0,23)STRING$(39,“ □ ”);: 
GOTO80 

120 DEF PROCBIN 
130 FOR X=0 TO 7 

1 40 IF - (T AND 2 a X) THEN PRINTTAB 
(34 - X*4 + (X > 3)*2,7)“1 ”TAB(34 - 
X‘4 + (X>3)*3 + (X>6),12);(T AND 



How do I convert from hex back 
into decimal? 

Each successive digit of a hex number is 
worth 16 times the digit to its right. So 
to convert a hex number like F6DA into 
decimal, you take the righthand digit 
and convert it into decimal notation. A is 
10. The next digit to the left is worth 16 
times more, so it must be converted into 
decimal notation and multiplied by 16. 

D is 13. 13 x 16 = 208. The next digit to 
the left is worth 16 times more again. 

6 x 16 x 16= 1536. And the last digit in 
this case must be multiplied by yet 
another 16. F is 15. 15 x 16 x 16 x 16 
= 61440. So F6DA in hex is 10 + 208 
+ 1536 + 61440 or 63194 in decimal. 
Otherwise use the program here to x 
convert the hex two digits at a 
time. Then multiply the left- 
hand pair by 256. 


2 a X) ELSE PRINTTAB(34— X'4 + (X>3) 
*2,7) “0”TAB(34— X*4 + (X>3)*2 — 
2 , 12 ); “□□ 0 ” 

150 NEXT X 
160 ENDPROC 
170 DEF PROCHEX 
180 FOR X = 4 TO 7 
190 PRINT TAB(31 -X*4,17);(T AND 
2 a X)/16 
200 NEXT 

210 FOR X = 0 TO 3 

220 PRINTTAB(34 — X*4,17);(T AND 2 a X) 
230 NEXT 

240 X = (T AND 240)/16 

250 A$ = CHR$(X + 48 — 7* (X > 9)) 

260 PRINTTAB(18,17);A$ 

270 X= (T AND 15) 

280 B$ = CHR$(X+48— 7*(X>9)) 

290 PRINTTAB(37,17);B$ 

300 PRINTTAB(26,20)A$ + B$ 

310 ENDPROC 

320 DEF PROCDEC 

330 PRINTTAB(37,12);T“D □” 

340 ENDPROC 

BE 

20 PRINT “□”CHR$(8):FOR Z=1 TO 
8:READ A(Z):NEXT Z:DATA 128,64, 
32,16,8,4,2,1 

30 K$ = “01 23456789ABCDEF”:POKE 650, 
255: POKE 53280, 0:POKE53281,0 
40 PRINT ”@”TAB(13)“E3 BIN, DEC, HEX” 
50 PRINT TAB(13) 

(( ^ 99 
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60 PRINT “ B B S El BINARYK : B ” 

70 PRINT ”BBBElDECIMALfcj:B” 

80 PRINT “HH S SI HEXADECIMAL 

Kjfi 

90 PRINT‘ @KHHHHHH ’: 

V$ = “”: FOR Z= 1 TO 8:V$ = V$ + LEFTS 
(“□”+ STR$(B(Z)) + “□□”, 4):NEXTZ 
100 PRINT MID$(V$,3,14)“D □” 
RIGHT$(V$,16) 

110 PRINT “HSH”: V$ = “”:F0R Z=1 
TO 8 

1 20 VS = V$ + LEFT$(“ + ” + RIGHTS 
(STR$(D(Z)),LEN(STR$(D(Z))) - 1 ) + 

“□ □ □”,4):NEXT Z 
130 PRINT MID$(V$,2,15);“Dnn”; 
MID$(V$,1 8,1 6)” = □ □ □ □ || || || 

II 

140 PRINTD(1) + D(2) + D(3) + D(4) + 

D(5) + D(6) + D(7) + D(8) 

150 PRINT “HHH ,, :V$ = “”:F0RZ=1 
TO 8 

160 V$ = V$ + LEFT${“ + ” + RIGHT$(STR$ 
(H(Z)),LEN(STR$(H(Z))) — 1 ) + 

“□ □ □”,4):NEXT Z 
170 XI $ = MID$(K$,H(1 ) + H(2) + H(3) + 

H(4) + 1 ,1 ):X2$ = MID$(K$,H(5) + H(6) + 
H(7) + H(8) + 1,1) 

180 PRINT MID$(V$,2,15);“|| = 
a”X1$“ijnn”;MID$(V$,18,16); 

“=ng”x 2$ 

190 PRINT, “B B H ^ □ HEXD 

TOTALDiDDDDaD 

II II II II 113 

; X1S + X2S 

200 GET A$:IF A$ = “” THEN 200 
210 POKE 198,0:IF A$ = “D” THEN 
A=A + 1:IF A> 255 THEN A = 0 
220 IF A$ = “B” THEN A = A — 1 :IF A<0 
THEN A=255 

230 IF A$< >“□” AND A$< >“B” 

THEN 350 
240 AA = A 

250 FOR Z= 1TO 8:IF A(Z) < =AA THEN 
B(Z) = 1 :D(Z) = A(Z):AA = AA - A(Z): 
GOTO 270 

260 B(Z) = 0:D(Z) = 0 
270 NEXT 

280 FORZ= 1T04:IFB(Z) = ITHENH(Z) = 

A(Z + 4):GOTO300 
290 H (Z) = 0 
300 NEXT Z 

310 FOR Z = 1 TO 4:IF B(Z+4) = 1 THEN 
H(Z+4) = A(Z+4):GOTO 330 
320 H(Z+4) = 0 
330 NEXT Z 
340 GOTO 90 

350 1$ = “”:PRINT “B i S S B B B 

bssbbhsssssb 

HMMMMnoanoon 

INPUT NUMBER? (0-255): 

□ □□□Hllll”; 



360 FOR Z=1 TO 3 
370 GET J$:PRINT “* || □ || ’’^IF 
J$ = “” THEN 370 
380 IF J$ = CHR$(13) THEN 440 
390 IF J$ = CHR$(20) THEN 350 
400 IF ASC(J$) < 48 OR ASC(J$) > 57 
THEN 370 

410 l$ = l$ + J$:PRINT J$;:NEXT Z 
420 GET J$:IF J$ = CHR$(20) THEN 350 
430 IF J$< >CHR$(13) THEN 420 
440 IF VAL(I$) < 0 OR VAL(I$) > 255 
THEN 350 

450 PRINT:PRINT “□□□□□□□ 

□□□□□□□□□□□□a 
□□□□□□□□□□□□a 
□ □□□□□□□”; 

460 A=VAL(l$):GOTO 240 

KB 

10 PRINT“Q”CHR$(8) 

20 FOR Z=1 TO 8:READ A(Z):NEXT: DATA 
128,64,32,16,8,4,2,1 

30 K$ = “01 23456789ABCDEF”: POKE 650, 
255: POKE 36879,8 
40 PRINT @ □□□□□□ 

BIN, DEC, HEX” 

50 PRINT “□□□□□3 


60 PRINT “HMQBINARYE:” 

70 PRINT “H H S □ DECIMAL^ 

80 PRINT "aBHQHEXADECIMALK:” 
90 PRINT "@BHaBBE”:V$ = 
“”:FOR Z=1 TO 8:V$ = V$ + STR$ 


(B(Z)):NEXTZ 

100 PRINT LEFT$(V$,8)“nnn” 
RIGHT$(V$,8) 

1 1 0 PRINT “ B H ":V$ = “”:FORZ = 1 T08 
1 20 V$ = V$ + LEFT$(“ + ” + RIGHTS 
(STR$(D(Z)),LEN(STR$(D(Z))) — 1 ) 

+ “□□□”, 4):NEXTZ 
130 PRINT MID$(V$,1,15):PRINTMID$ 

(V$,17,16)“|| = □□□□11111111”; 
1 40 PRINT D(1 ) + D(2) + D(3) + D(4) + D(5) 

+ D(6) + D(7) + D(8) 

150 PRINT ”B”:V$ = “”:F0RZ=1T08 
1 60 V$ = V$ + “ + ” + RIGHT$(STR$ 
(H(Z)),1):NEXTZ 

170 XI $ = MID$(K$,H(1) + H(2) + H(3) 

+ H(4) + 1 ,1 ):X2$ = MID$(K$,H(5) 

+ H(6) + H(7) + H(8) + 1,1) 

180 PRINT LEFT$(V$,8):“ = g”X1$; 

“□B”RIGHT$(V$,8)” = !3”X2$ 

190 PRINT” a a HEX TOTAL :□□□□ 

□ □lllllllllia ; 

X1S + X2S 

200 GETA$:IFA$ = “”THEN200 
210 POKE 1 98,0: IFA$ = “ □ ”TH ENA = A + 1 : 
IFA > 255THENA = 0 

220 I FA$ = “B”THENA = A — 1 :IFA < 0THEN 
A = 255 

230 IF A$< >“Q”ANDA$< >“B”THEN350 
240 AA = A 

250 F0RZ=1T08:IFA(Z) < =AATHENB(Z) 

= 1 :(DZ) = A(Z):AA = AA - A(Z):GOTO270 
260 B(Z) = 0:D(Z) = 0 
270 NEXT 
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280 FORZ= 1T04:IFB(Z) = ITHENH(Z) = A 
(Z + 4):GOTO300 
290 H(Z) = 0 
300 NEXTZ 

310 FORZ = 1 T04:IFB(Z + 4) = 1 THENH 
(Z+4) = A(Z + 4):GOTO330 
320 H(Z + 4) = 0 
330 NEXTZ 
340 GOTO90 

350 l$ = “”:PRINT“i|@HH 

INPUT NUMBER?^ 

0-255) a > □□□□III! II”; 

360 F0RZ=1T03 

370 GETJ$:PRINT“‘|| □ ||”;:IF J$ = 
THEN370 

380 IFJ$ = CHR$(1 3)THEN440 
390 IFJ$ = CHR$(20)THEN350 
400 IFASC(J$) < 48 0RASC(J$) > 57 
THEN370 

41 0 1$ = 1$ + J$: PRINTJS;: 

NEXTZ 

420 GETJ$:IFJ$ = CHR$(29) THEN350 
430 IFJ$< >CHR$(13)THEN420 
440 IFVAL(I$) < 0ORVAL(I$) > 255 
THEN350 

450 PRINT:PRINT“nn ^ D □ 

□□□□□□□□□□a 

□□□□□□□□□□a 

460 A=VAL(I$):GOTO240 
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This is how the Bin, Dec, Hex 
program looks on the Spectrum. 
The screen layout is not too 
different on the other machines. 
It is now easy to see how the 
three number systems work. 
When you RUN the program all 
three lines are set to zero. Press 
B, for back, and the Binary line 
will All up with Is. Underneath, 
the decimal line will fill up with 
the powers of 2. From right to 
left, you get 1 — which is 2°; 2 — 
which is 2 '; 4 — which is 2 2 ; and so 
on. The hex line works in the 
same way, only the two hex digits 
are computed independently. 



20 CLS0 

30 print@ii,“|EJ[E,CIS”; 

40 PRINT@68,“i:ilfflaai”; 


ECI MALI 


60 PRINT@ 

70 PRINT@355,“ + □□ + □□ + 

80 PRINT@371 ,“ + □□ + □□ + 

□ □□ = □”; 

90 FORJ = 1 T01 5:P0KE1 040 4- 32* J, 
175:NEXT 

100 PRINT@450, “ 5aig = 

□ □□□□”; 

110 PRINT@227,“ + □□□ + □□□ + 

□□□□+□□□+□□□+ 

□ □□ + ” 

120 GOTO170 

130 INS = INKEY$:IFIN$ = THEN130 
140 IFINS = “ □ ’’THENNO = NO + 1 : 

N0 = NO AND 255:G0T01 70 
150 IFINS = “B” THENNO = N0 — 1:N0 = NO 
AND 255:GOTO170 
160 GOSUB370 
170 G0SUB1 90:GOSUB270 
180 GOTO130 
190 FORX=7TO0 STEP— 1 
200 IF(N0 AND 2 t X) THENN = 1 
ELSEN = 0 

210 PRINT@125 — X*4,N; 

220 IFN = 1 THENN = INT(2 f X): 

N$ = STR$(N):N$ = MID$(N$,2, 
LEN(N$)-1) ELSENS = RIGHTS 
(“□□0”, LEN(STR$(2 t X)) — 1 ) 

230 PRINT@255— X*4 — LEN(N$),N$; 

240 NEXT 

250 PRINT@279,“D = □”;MID$ 

(STRS(NO) + “ □ □ ”,2,3); 

260 RETURN 

270 FORX = 7 TO 4 STEP — 1 
280 PRINT@374 — X*3,STR$((N0 
AND 2 j X)/16); 

290 NEXT 

300 PRINT@367,HEX$(NO/16); 

310 FORX = 3TO0 STEP -1 

320 PRINT@378 — X*3,STR$(N0 AND 2 T X); 

330 NEXT 

340 PRINT@383,HEX$(NO AND 15); 

350 P0KE1 488,PEEK(1 391 ):P0KE 
1 489,PEEK(1 407) 

360 RETURN 

370 NUS = “”:PRINT@439,“?”; 

380 INS = INKEY$:IF(IN$ < “0”ORIN$ > 

“9”) ANDIN$< >CHR$(13)THEN 
GOTO 380 

390 IFINS = CHR$(1 3) THENNO = VAL 
(NU$):IFN0 > 255 THEN370 
ELSEPRINT@439,STRING$(5, 
CHR$(128));:RETURN 
400 IFINS < >CHR$(13) ANDLEN 


(NUS) >2 THEN380 
410 NU$ = NUS + IN$:PRINT@441, 

MID$(NU$ + “D □ □”,1,3);:GOTO380 

Once you’ve keyed in the program for your 
machine and RUN it, you will find that the 
binary, decimal and hex numbers are all set at 
zero. If you push the space bar a 1 will clock 
up in each base. Keep pushing and the 
computer will keep counting, adding 1 to each 
total at a time. Note that the decimal equiva- 
lent is computed by adding the value of each 
place that has a 1 in it in the binary. 

The hex is computed by doing exactly the 
same thing, except that it takes four binary 
digits at a time. 

Pressing the B key will subtract a 1 from 
each of the numbers and run the program 
backwards. 

For the Spectrum and Commodores you 
can SAVE this program and use it to convert 
decimal numbers into hex numbers at any- 
time. The quick way to do this conversion is 
to press any key on the keyboard except the 
space bar or B. A question mark will be 
displayed on the screen. Feed in a ny deci mal 
number less than 255, press 1 ENTER! or 
[RETURN! , and the equivalent in binary and hex 
will be displayed. 

You will note that the maximum number 
that can be represented by an eight-bit byte in 
binary is 11111111. This is 255 in decimal, 
and FF (the maximum two-digit number) in 
hex. Any number stored in a byte of your 
computer memory can be represented by a 
two-digit hex number. And machine code is 
made up entirely of these two-digit hex 
numbers. 


LARGER NUMBERS 


Your computer deals with numbers larger than 
255 simply by breaking them in two parts and 
putting them into two adjacent memory loc- 
ations. This will allow you to store any number 
up to FFFF in hex, or 65,535 in decimal. 
FFFF is an important number in home com- 
puters as it is the maximum number of 
addressable memory locations. 

Larger numbers still can be stored by 
breaking the number into three or four hexa- 
decimal bytes and storing them in succeeding 
memory locations. Which way round the bytes 
are stored is a matter of convention. The 
Sinclair, Commodore and Acorn computers 
store the lowest value byte in the lowest 
memory location and the highest in the high- 
est. The Dragon and the Tandy store them the 
other way round. 

But how does hex represent negative num- 
bers? That will be dealt with in the next part of 
this article. 
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62-63 

Cricket average program 

118-123 

LINE, PAINT 

84-91 

Operands 

35 

Symbols, arithmetic 

6 

Cursor, definition of 

7 



OR 

35-36 


control codes. Commodore 64 
Vic 20 

123 

H 

Hexadecimal 38, 42 

!, 45, 156-160 

P 

91 

T 

TAB 

117-122 

D 


HIRES, Commodore 

87 

PAINT, Dragon 

Tables, multiplication 

5-7 


Hobbies file 

House, drawing a 

Acorn 

Commodore 

46-53, 75-79 

PAPER, Spectrum 

86 

Teletext graphics, BBC 

28-29 

DATA 

104-109 

Parameters 

64 

Terminating numbers 

34 

for arrays 

154-155 

107-108 

Password program 

133 

Timing 

97, 101-103 

for graphics 
machine code 

107-109 

67 

108-109 

PAUSE 

Commodore 

88 

u 


statements 

8-14, 40-45 



Spectrum 

101, 108 


Decimal numbers 

110 

1 


PEEK 

59, 101 

UDG (User defined graphics) 8-15, 40-44 

conversion from binary 

38, 42 

1 


Peripherals, cassettes 

22-25 

grids for 

8-11 

converting fractions into binary 114 

IF . . . THEN statements 

3, 33-37 

Pixel 

84 

DATA for 

45 

Decision making 

33-37 

IF. ..THEN. ..ELSE 

37 

PLAY, Dragon 

73 

creating your own 

38-45 

Default colours 


IF. ..THEN. ..GOTO 

36, 54 

PLOT 

88-89 



Acorn 

89 

INK, Spectrum 

86 

PMODE, Dragon 

90 

V 


Dragon 

90 

INKEY, Acorn 28-29, 

103, 134-135 

POINT, Acorn 

71 


Delays in programs 

-17 

INKEYS 54-55, 132-135 

POKE 


VAL, Commodore 

101 

DIMensioning an array 

152-153 

INPUT 3-5, 117-122, 129-135 

Commmodore 15, 

99, 108-109 

Variables 3-5, 92-96, 104-108 

Directory program 

105 

INPUT prompts 

130-131 

Dragon 

13, 40, 101 

VDU commands, Acorn 

28-29, 70, 99 

DRAW 

85-91 

INT, Commodore, Spectrum 

2-3 

Spectrum 

101 

Verifying saved programs 

24-25 
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LJ Zap . . . poiv . . . crash. EXPLOSIONS 
are a common feature of many arcade- 
type games. So here's how you can create 
convincing visual effects to add to your 
games — plus a couple of new routines 


CJGet one step nearer to understanding 
the mysteries of the numbers which 
make up machine code programs by 
looking at how the computer handles 
NEGATIVE NUMBERS 


LJ What do people mean when they talk 
about an ‘ elegant ' or well-written 
program? Find out with your own guide 
to writing properly STRUCTURED 
PROGRAMS 


Plus y for Commodore users y one of an 
occasional series on special features of 
individual machines. In this article 9 we 
look at the sprite graphics 


ASK YOUR NEWSAGENT FOR INPUT 


CJ Improve your ability to draw 
COMPUTER PICTURES by learning 
about some of the more subtle uses for 
your computer's BASIC graphics 
commands 





